Element per Macro verschieben

[AtzeLenin]

Hi Leute,

gibt es eine Möglichkeit, ein Formular-Element ( z.B. einen Button) um eine gewisse distance nach unten zu verschieben? Müsste ja eigentlich über "PropertyValue" gehen, aber da gibts nichts mit Position...

besten dank!

[DPunch]

Aloha

Das funktioniert mit folgendem Code:

Code: Alles auswählen

	sControlName = "Schaltfläche 1"
	oDoc = thisComponent
	oDrawpage = oDoc.Drawpage
	For i = 0 to oDrawpage.Count-1
		thisElement = oDrawpage(i)
		If thisElement.supportsService("com.sun.star.drawing.ControlShape") Then
			If thisElement.Control.Name = sControlName Then
				Position = thisElement.Position
				Position.X = Position.X + 100
				Position.Y = Position.Y + 100
				thisElement.Position = Position
			End If
		End If
	Next i

[AtzeLenin]

Funktioniert super, besten Dank!

Gibt es einen betriebssystemunabhäniges Verhältnis von Pixel zu Zentimetern... Also, woher weiss ich wieviel 100Pixel sind? Propieren?

Aber trotzdem erstmal Danke!