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