Hi MuiFull,
I couldn't find any UNO-Interfaces that help to insert unlinked
graphics, but the dispatch-API seems to do the job, so something like
after looking some more I found some UNO-API calls that will at least
work in OOo2.0
Sub Main
oDoc = thiscomponent
xShape = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
xTextContent = oDoc.createInstance("com.sun.star.text.GraphicObject")
oDoc.getDrawPage.add(xShape)
GraphicProvider =
createUnoService("com.sun.star.graphic.GraphicProvider")
dim mediaprops(0) as new com.sun.star.beans.PropertyValue
mediaprops(0).Name="URL"
mediaprops(0).Value="file:///<YOURPATH>/<YOURFILE>"
xGraphic = GraphicProvider.queryGraphic(mediaprops())
xShape.Graphic = xGraphic
xTextContent.graphicurl = xShape.graphicurl
xText= thiscomponent.getText()
xTextCursor = xText.createTextCursor()
xText.insertTextContent(xTextCursor, xTextContent, false)
oDoc.getDrawPage.remove(xShape)
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
