Haz tu Pregunta
0

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

preguntado 2017-11-23 01:40:34 +0200

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?

edit re-etiquetar marcar como ofensivo reabrir fusionar delete

Cerrada por la siguiente razón la pregunta ha sido respondida, la respuesta correcta ha sido aceptada por m.a.riosv
fecha de cierre 2017-11-23 12:31:34.334854

1 Responder

Ordenar por » viejos nuevas más votado
0

respondido 2017-11-23 03:09:30 +0200

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.

edit marcar como ofensivo delete enlace mas

Herramientas de Preguntas

1 seguidor

Estadisticas

Preguntado: 2017-11-23 01:40:34 +0200

Visto: 22 veces

Ultima actualización: Nov 23 '17