Dokument als jpg exportieren

Alles zur Programmierung im LibreOffice.
Antworten
elefantino
Beiträge: 12
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

Antworten