Insertar (Embeber) una imagen en una hoja de Calc

[dedio]

Hola a todos este es mi primer post.
Necesito insertar una imagen en una hoja de un libro Calc por medio de una macro.
Tengo la siguiente función:

Código: Seleccionar todo

Function FuncInsertaImagen(sRuta As String, iWidth As Integer, iHeight As Integer, oLibro As Object)
	Dim oHoja As Object
	Dim oImagen As Object
	Dim sUrl As String
	Dim oTam As New com.sun.star.awt.Size

	sUrl = ConvertToURL(sRuta)
	oHoja = oLibro.getCurrentController.getActiveSheet.getDrawPage()
	oImagen = oLibro.createInstance("com.sun.star.drawing.GraphicObjectShape")
	oImagen.GraphicURL = sUrl
	oHoja.add(oImagen)
	oTam.Width = iWidth
	oTam.Height = iHeight
	oImagen.setSize(oTam)
End Function

Pero no inserta la imagen en el documento, sino que enlaza al fichero original de la misma.
¿Cómo puedo hacer para embeberla?
Desde ya muchas gracias

[mauricio]

En mi versión que aparece en mi firma, la inserta de forma predeterminada.

[mauricio]

He eliminado los comentarios que no tienen nada que ver con este tema, por favor, evita hacerlo.