BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Dokument als jpg exportieren

Alles zur Programmierung im LibreOffice.
Antworten
elefantino
Beiträge: 19
Registriert: Do 20. Mär 2014, 09:11

Dokument als jpg exportieren

Beitrag von elefantino » Do 3. Okt 2019, 17:26

Hallo, ich möchte ein writer Dokument mittels MAKRO als JPG exportieren.
gefunden habe ich: writer_jpg_export.
Funktioniert soweit auch, allerdings ist die Auflösung ziemlich mies.
Wenn ich eine Makroaufzeichnung starte und in dem darauffolgenden Fenster die Auflösung ändere, wird die Datei ziemlich gut.
jetzt kommt das seltsame wenn ich jetzt versuche dieses aufgezeichnete Makro per Schaltfläche aufzurufen komme ich wieder in das Fenster für die Einstellungen des JPG.

Hier ist das Makro, das aufgezeichnet wurde:

Code: Alles auswählen

sub jpgExport
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/XXXXXX/Desktop/Dok_1.jpg"
args1(1).Name = "FilterName"
args1(1).Value = "writer_jpg_Export"
args1(2).Name = "FilterData"
args1(2).Value = Array(Array("ColorMode",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Quality",0,90,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PixelWidth",0,3150,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PixelHeight",0,4455,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("LogicalWidth",0,63000,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("LogicalHeight",0,89100,com.sun.star.beans.PropertyState.DIRECT_VALUE))
args1(3).Name = "SelectionOnly"
args1(3).Value = false

dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args1())


end sub

Vielleicht hat ja jemand eine Idee

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten