Re: [de-users] Makro gesucht Drehen Draw

Hallo Florian,
> 1) Neue Seite erstellen (Vorherige Kopieren) 2) Alle Elemente um (bei
> mir jetzt, wäre nett wenn man das als Schritt 0 einstellen könnte)
> -7,2° drehen (Zentrum Mitte des Objekts, da das gleichzeitig die
> Mitte der Seite ist) [Um mehr Fälle abzudecken wäre es auch nett die
> Anzahl der Drehungen abzufragen]

Ich mache so etwas zwar auch nur per Trial and Error, aber der Folgende
Code macht mir bei einem Rechteck auf der Seite (oder eben bei nur einem
Objekt) lauter neue Seiten, bei denen das Ganze schrittweise gedreht wird.

SUB NeueSeite
        DIM oDoc AS OBJECT
        DIM oSeiten AS OBJECT
        DIM oSeite AS OBJECT
        DIM oShape AS OBJECT
        DIM inZahl AS INTEGER
        oDoc = ThisComponent
        oSeiten = oDoc.getDrawPages()
        inZahl = InputBox("Wie viele neue Seiten sollen's sein?")
        inZahl = inZahl -1
        FOR i = 0 TO inZahl
                oDoc.duplicate(oSeiten.getByIndex(i))
                oSeite = oSeiten.getByIndex(i+1)
                oShape = oSeite.getByIndex(0)
                oShape.RotateAngle = 720 * (i+1)
        NEXT
END SUB

Gruß

Robert

-- 
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert