Michael Hinz
How can i insert an image
/* get the desktop (an Xdesktop object) */
oDesktop = UNO.createDesktop()
xComponentLoader = oDesktop~{%see com.sun.star.frame.XDesktop%XDesktop}~{%see com.sun.star.frame.XComponentLoader%XComponentLoader} --get componentLoader interface
/* open a blank calc file */
url = "private:factory/scalc"
xCalcComponent = xComponentLoader~loadComponentFromURL(url, "_blank", 0, .UNO~noProps)
/* get first sheet in spreadsheet */
xDocument = xCalcComponent~{%see com.sun.star.sheet.XSpreadsheetDocument%XSpreadSheetDocument}
xSheet = xDocument~getSheets~{%see com.sun.star.container.XIndexAccess%XIndexAccess}~getByIndex(0)~{%see com.sun.star.sheet.XSpreadsheet%XSpreadSheet}
/* get DrawPage */
xDrawPages = xSheet~{%see com.sun.star.drawing.XDrawPageSupplier%xDrawPageSupplier}
xDrawPage = xDrawPages~getDrawPage~{%see com.sun.star.drawing.XDrawPage%xDrawPage}
/*create shape to insert picture*/
xFactoryManager = xCalcComponent~{%see com.sun.star.lang.XMultiServiceFactory%XMultiServiceFactory}
calcShape = xFactoryManager~createInstance("{%see com.sun.star.drawing.GraphicObjectShape}")
xcalcImg = calcShape~{%see com.sun.star.drawing.XShape%xShape}
size = .bsf~new("{%see com.sun.star.awt.Size}") -- set size
point = .bsf~new("{%see com.sun.star.awt.Point}")
size~Height = 2500
size~Width = 8000
point~x = 1000
point~y= 1000
xcalcImg~setSize(size)
xcalcImg~setPosition(point)
url1 = ConvertToURL(directory()"/oorexx.jpg")
xcalcImg~{%see com.sun.star.beans.XPropertySet%xPropertySet}~setPropertyValue("GraphicURL", url1)
xxx = xDrawPage~add(xcalcImg) -- add image to page
::requires UNO.cls -- get UNO support