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