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
BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗
Open Office Calc: Schaltfläche per Makro verschieben
Re: Open Office Calc: Schaltfläche per Makro verschieben
Hallo,so geht es:
Gruß R
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
Windows 10: AOO, LO Linux Mint: AOO, LO
Re: Open Office Calc: Schaltfläche per Makro verschieben
Super Vielen Dank