OpenOffice.info

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! ;)

	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

Aloha

Das funktioniert mit folgendem Code:

[code] 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[/code]

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!