Re: [de-users] [Erledigt] Makro gesucht Drehen Draw

Hallo Robert,

Danke!

Hat toll funktioniert!

Die Zeile "oShape.RotateAngle = 720 * (i+1)" werde ich nie verstehen.... (Wegen 720 als 7,2 Grad). 

Liebe Grüße, / Yours,
Florian Reisinger

> Am 27.02.2014 um 22:20 schrieb Robert Großkopf <robert@familiegrosskopf.de>:
>
> 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

-- 
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