LibreOffice - bordeigener PNG-Export für Calc
Verfasst: Mi, 09.08.2017 13:11
Hallo,
es geht mir um die Funktin PNG-Export (über Datei-Exportieren) die es in neueren LO-Versionen gibt, weil diese Funktion bei Calc-Tabellenblättern auch Kopf- und Fußzeile exportiert.
(nebenbei: diese Funktion exportiert immer nur das Tabellenblatt mit Index 0, und nicht das aktuelle Blatt, was offfensichtlich ein Fehler ist)
Wenn ich das per Dispatcher aufzeichne erhalte ich z.B.:
Wenn ich dieses Makro dann starte reagiert LO jedoch weder auf die Pixel-Einstellungen noch auf die Einstellung für "SelectionOnly" sondern zeigt immer den Dialog für die Pixeleinstellungen nochmals an und exportiert ohne die Selection zu beachten.
Weiß jemand etwas darüber?
Ausdrücklich sei nochmals betont das es mir nicht um eine reine Möglichkeit geht png zu exportieren (z.B. siehe https://forum.openoffice.org/en/forum/v ... portFilter), denn diese ist mir bekannt, sie enthält aber die Kopf- und Fusszeilen nicht.
Gruß
Stephan
es geht mir um die Funktin PNG-Export (über Datei-Exportieren) die es in neueren LO-Versionen gibt, weil diese Funktion bei Calc-Tabellenblättern auch Kopf- und Fußzeile exportiert.
(nebenbei: diese Funktion exportiert immer nur das Tabellenblatt mit Index 0, und nicht das aktuelle Blatt, was offfensichtlich ein Fehler ist)
Wenn ich das per Dispatcher aufzeichne erhalte ich z.B.:
Code: Alles auswählen
sub png_test
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:///D:/test.png"
args1(1).Name = "FilterName"
args1(1).Value = "calc_png_Export"
args1(2).Name = "FilterData"
args1(2).Value = Array(Array("PixelWidth",1,1123,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PixelHeight",0,794,com.sun.star.beans.PropertyState.DIRECT_VALUE))
args1(3).Name = "SelectionOnly"
args1(3).Value = True
dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args1())
end sub
Weiß jemand etwas darüber?
Ausdrücklich sei nochmals betont das es mir nicht um eine reine Möglichkeit geht png zu exportieren (z.B. siehe https://forum.openoffice.org/en/forum/v ... portFilter), denn diese ist mir bekannt, sie enthält aber die Kopf- und Fusszeilen nicht.
Gruß
Stephan