OpenOffice.info

<snip>
...
  oPos.x = 200
  oPos.y = PosTopAC + 50
...
</snip>
<snap>
...
  aShape = aDoc.CreateInstance ("com.sun.star.drawing.ControlShape")
  aShape.Position = oPos
...
</snap>

Hi Charly,
danke für die schnelle Rückmeldung und das Beispiel.
Leider gibt er mir bei der Zeile

[quote] if oShape.control.name = "CheckBox" then [/quote]

den Fehler "Objektvariable nicht belegt" aus. Schätze das liegt an .control

Habe aber inzwischen auf dieser Basis etwas ähnliches zusammengepuzzled:

[code]
<snip>
...
oPos.x = 200
oPos.y = PosTopAC + 50
...
</snip>
<snap>
...
aShape = aDoc.CreateInstance ("com.sun.star.drawing.ControlShape")
aShape.Position = oPos
...
</snap>
[/code]

Das funktioniert bei mir, auch wenn ichs nicht bis ins detail nachvollziehen kann...

Sub ShapePosition()

oDoc = ThisComponent
oDraw = oDoc.sheets(0).drawpage

For i= 0 to oDraw.count-1
oShape = oDraw(i)
if HasUnoInterfaces(oShape,"com.sun.star.drawing.XControlShape") then
   if oShape.control.name = "CheckBox" then
      oElementShape = oShape
   end if
end if
next
oPosition = oElementShape.position
x = oPosition.x
Y = oPosition.y
Anzeige = "X Position = " & x & chr(13) & "Y Position = " & Y
MSGBox (Anzeige)    
End Sub

Hallo!

Jetzt bin ich noch bei der Suche der x/y Position in einem Calc-Formular fündig geworden.

[code]
Sub ShapePosition()

oDoc = ThisComponent
oDraw = oDoc.sheets(0).drawpage

For i= 0 to oDraw.count-1
oShape = oDraw(i)
if HasUnoInterfaces(oShape,"com.sun.star.drawing.XControlShape") then
if oShape.control.name = "CheckBox" then
oElementShape = oShape
end if
end if
next
oPosition = oElementShape.position
x = oPosition.x
Y = oPosition.y
Anzeige = "X Position = " & x & chr(13) & "Y Position = " & Y
MSGBox (Anzeige)
End Sub
[/code]

Gruß
Charly

Hallo!

Nach dem du die Variable oForm benutzt, gehe ich davon aus, dass du eine Checkbox aus einem Formular und nicht aus einem Dialog meinst.

Ich habe leider auf der Seite vom Dannenhöfer:

http://www.dannenhoefer.de/faqstarbasic/WiegehtmanmitKontrollfelderninDialogenum.html

nur etwas über x und y-Position innerhalb eines Dialoges gefunden.
[quote="Dannenhoefer"]
PositionX, PositionY
Mit diesen beiden Eigenschaften läßt sich das Kontrollfeld innerhalb des Dialoges positionieren.
StarBasic: MyControl.Model.PositionX und MyControl.Model.PositionY
[/quote]
Vielleicht hilft dir das bei der Suche nach etwas ähnlichen in einem Formular.

Gruß
Charly

Also Xray ist ja echt ein klasse tool. Aber ich finde einfach nicht, wie ich an die Position z.B. einer Checkbox herankomme.
Ich hätte sowas gedacht wie: oForm.getByName("CheckBox1").Position.Y Aber das funzt nicht. :?

.getCellByPosition(3,3).Position.Y geht ja schließlich auch. Gibts da nicht irgendwie eine Übersicht für Eigenschaften?

Gruß,