La macro inserta imagen en Calc, pero sólo muestra el camino en lugar de la imagen

[schiavinatto]

He utilizado la siguiente macro:

Sub Imagenes1()
Dim oDoc As Object
Dim oPaginaDibujo As Object
Dim oImagen As Object
Dim sRuta As String
Dim oTam As New com.sun.star.awt.Size
	'La ruta de la imagen
	sRuta = ConvertToURL("/home/mau/globo.png")
	oDoc = ThisComponent
	'Pagina de dibujo de la hoja activa
	oPaginaDibujo = oDoc.getCurrentController.getActiveSheet.getDrawPage()	
	'Para crear y manipular imagenes
	oImagen = oDoc.createInstance( "com.sun.star.drawing.GraphicObjectShape" ) 	
	'Establecemos la ruta de la imagen
	oImagen.GraphicURL = sRuta
	'La agregamos a la página de dibujo, por ende, al conjunto de formas
	oPaginaDibujo.add( oImagen )
	'Establecemos el tamaño de la imagen, siempre establece un tamaño, si no
	'se insertará con un tamaño mínimo casi invisible
	'la unidad es centésimas de milímetro
	oTam.Width = 10000
	oTam.Height = 7500
	oImagen.setSize( oTam )
End Sub

Del manual “Aprendiendo OOo Basic” de Mauricio Baeza Servin, pero la imagen no aparece, sólo muestra el camino.

¿Dónde puedo estar equivocado?

[schiavinatto]

Ops … Descubrí el error, hice una grabación de macro, insertando imagen es ella grabó la ruta real de mi máquina. “file: /// C: /Users/Gilberto/Pictures/003.png”

Ok problema resuelto.