sub png_test2
dim oDoc, sUrl
rem get access to the document
odoc   = ThisComponent
sUrl = "file:///C:/Users/halifax/test2.png"


rem ----------------------------------------------------------------------
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = sUrl
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

oDoc.storeToURL(sUrl, args1)

end sub