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: [email protected]
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
