Makro für Briefpapier

Antwort erstellen


Um automatische Eingaben zu unterbinden, musst du die nachfolgende Aufgabe lösen.

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Makro für Briefpapier

Re: Makro für Briefpapier

von black-dove » Mi, 20.06.2018 22:33

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!

Re: Makro für Briefpapier

von Stephan » Di, 19.06.2018 20:03

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

von black-dove » Di, 19.06.2018 12:16

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

von Stephan » Di, 19.06.2018 09:53

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

Makro für Briefpapier

von black-dove » Di, 19.06.2018 08:54

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!

Nach oben