La macro inserta una imagen en Calc, tiene que borrar esta imagen.

preguntado 2017-11-25 20:34:03 +0200

Hola @mauricio, La macro inserta una imagen en Calc. Tiene que revertir esta inserción con otra macro.

Sub Imagenes1()
'FUENTE: Aprendiendo OOo Basic de Mauricio Baeza Servin
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
edit re-etiquetar marcar como ofensivo cerrar fusionar delete