Haz tu Pregunta

Revision history [regresar]

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

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.

descripción de la imagen

¿Dónde puedo estar equivocado?