BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> 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

Alles zur Programmierung im OpenOffice.org
Antworten
bebhbgebb
Beiträge: 8
Registriert: Mi 15. Mai 2013, 13:15

Open Office Calc: Schaltfläche per Makro verschieben

Beitrag von bebhbgebb » Mi 15. Mai 2013, 21:20

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

F3K Total
Beiträge: 1006
Registriert: Mo 1. Aug 2011, 00:03

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

Beitrag von F3K Total » Fr 17. Mai 2013, 23:38

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
Windows 10: AOO, LO Linux Mint: AOO, LO

bebhbgebb
Beiträge: 8
Registriert: Mi 15. Mai 2013, 13:15

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

Beitrag von bebhbgebb » Mo 5. Sep 2016, 08:49

Super Vielen Dank :D

Antworten