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