Seite 1 von 1
Makro für Briefpapier
Verfasst: Di, 19.06.2018 08:54
von black-dove
Hallöchen!
Ist es möglich in Libreoffice per Makro ein Bild als Hintergrund per Briefpapier-Funktion einzubetten? Über die Funktion "Makro aufzeichnen" klappt es leider nicht.
Vielen Dank im Voraus!
Re: Makro für Briefpapier
Verfasst: Di, 19.06.2018 09:53
von Stephan
z.B.:
Code: Alles auswählen
Sub Main
oPageStyle = ThisComponent.getStyleFamilies().getByName("PageStyles")
oStd = oPageStyle.getByName("Standard")
oStd.BackGraphicURL = ConvertToURL("D:\meinHintergrund.png")
End Sub
Gruß
Stephan
Re: Makro für Briefpapier
Verfasst: Di, 19.06.2018 12:16
von black-dove
Vielen Dank, Stephan!
Das hat schonmal gut geklappt. Damit das Bild vernünftig angepasst wird, brauche ich noch spezielle Optionen für das Hintergrundbild.
Stil: Angepasst
Größe: 100% x 100%
Skalierung an
Position Mitte zentriert
Die Seitenvorlage sollte zudem bei Seitenrändern oben auf 1cm umgestellt werden. Sonst wird das eingefügte Bild an der oberen Kante von der Kopfzeile angeschnitten.
Ich hoffe, es geht alles per Makro und wenn ja nicht zu viele Umstände macht
Re: Makro für Briefpapier
Verfasst: Di, 19.06.2018 20:03
von Stephan
Du musst Dir XRAY (
https://wiki.openoffice.org/wiki/Extens ... #Xray_tool) herunterladen:
http://berma.pagesperso-orange.fr/Files ... l60_en.odt
und damit die entsprechenden Eigenschaft herausfinden die Du ändern willst.
Gruß
Stephan
Re: Makro für Briefpapier
Verfasst: Mi, 20.06.2018 22:33
von black-dove
Das mit XRAY hatte ich mir schon gedacht, jedoch ist es für mich zu kompliziert. Ich bin kein Programmierer.
Habe allerdings eine gute Lösung gefunden. Hier klappt es auch mit einem aufgezeichneten Makro.
Das Bild als Hintergrund passend "justiert" und das Dokument als Vorlage abgespeichert. Dann aufs Dokument, wo das Hintergrundbild hineingehört mit laufender Makroaufzeichnung, die Vorlage angewendet (Vorlage > Vorlage laden > Häckchen bei "Seiten" und "Überschreiben" > OK) und schon war alles perfekt!
Vielen Dank für die Hilfe!