Seite 1 von 1

Open Office Calc: Schaltfläche per Makro verschieben

Verfasst: Mi 15. Mai 2013, 21:20
von bebhbgebb
Hallo,
ich möchte ein Makro schreiben, mit welchem ich eine Schaltfläche verschieben kann. Konkret soll das Makro der Schaltfläche folgende Eigenschaften zuweisen:

Verankerung: an der Seite
Position X : 20cm
Position Y : 25cm

Ich freue mich auf hilfreiche Antworten. Bitte nicht auf den Makro-Recorder verweisen, der leistet grauenhafte Dienste.

Dankeschön

Re: Open Office Calc: Schaltfläche per Makro verschieben

Verfasst: Fr 17. Mai 2013, 23:38
von F3K Total
Hallo,so geht es:

Code: Alles auswählen

Sub S_Set_Button_Position
    dim opos as new com.sun.star.awt.Point
    opos.X = 20000
    opos.Y = 25000
    ocontroller = thiscomponent.currentcontroller
    if not ocontroller.isFormDesignMode then ocontroller.FormDesignMode = true
    osheet = thiscomponent.sheets.getbyname("Tabelle1")
    odrawpage = osheet.drawpage
    for i = 0 to odrawpage.count - 1
        oshape = odrawpage(i)
        if oshape.supportsservice("com.sun.star.drawing.ControlShape") then
            if oshape.control.name = ("Schaltfläche 1") then
                oshape.Anchor = osheet
                oshape.Position = opos
            endif
        endif
    next i
ocontroller.FormDesignMode = false
End Sub
Gruß R

Re: Open Office Calc: Schaltfläche per Makro verschieben

Verfasst: Mo 5. Sep 2016, 08:49
von bebhbgebb
Super Vielen Dank :D