[Erledigt]Kontrollfeld positionieren

[Didi-2018]

Hallo zusammen,

wie kann ich die absolute Position eines Kontrollfeldes per Makro in einem Formular verändern.
also z.B. oform.getbyName("fmtAnrede").PositionX=20 oder so.

Finde bei den Eigenschaften nichts dazu in der Doku, Ist das definitiv ausgeschlossen?
Alles andere Farben / Höhe /Größe usw. kann man ja auch darüber ändern.

Danke schon mal im voraus.

DIDI

[F3K Total]

Moin,
das geht nicht über das Kontrollfeld, sondern über das zugehörige grafische Element auf der Drawpage, Beispiel für das dritte Element (Index 2):

Code: Alles auswählen

sub test
    oPage = thiscomponent.drawpage
    oPage(2).Size
    oSize = oPage(2).Size
    oSize.Height=2000
    oSize.Width= 10000
    oPage(2).Size = oSize
end sub

Gruß R

[Didi-2018]

Hallo FK3,

danke für die Hilfe - war natürlich Goldrichtig.
Klappt jetzt.

G HDW

[Didi-2018]

Oben von FK3 das Beispiel für Höhe und Breite - hier der guten Ordnung halber hier das Beispiel für die Position:

Sub SetPosition
Dim oPage As Object
Dim Shape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
oPage = thiscomponent.Drawpage
Shape = oPage(4) ' viertes Indexfeld
Point.X = 14000 ' Position von Links nach Rechts
Point.Y = 12000 ' Position von Oben nach unten
Shape.Position = Point
End Sub

Cheers DIDI