Cambiar la imagen de un control de imagen en tiempo real con macro

Estoy tratando de cambiar la imagen de un cuadro de control “Imagen” en LibreOffice desde un macro y no lo consigo. He probado de todo ImageURL, Graphics, Graphic, etc. y todas las soluciones que creo haber encontrado no me funcionan.

Lo más simple a lo que he llegado (ya tengo creado el diálogo y el control) … y me salta el error “Object variable not set”

Sub comienzo()

    DialogLibraries.LoadLibrary( "Standard" )
    oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialogo") )

    oDialogo.oImagen = .getControl ("Image")

    svgURL = convertToURL ("path")   'path = la ruta en la que está la imagen
    oImagen.Graphics = svgURL
	
    oDialogo.execute()
    oDialogo.dispose()

end Sub

Ya encontré la solución:

Se trata de sustituir:

oImagen.Graphics = svgURL

por

oImagen.Model.ImageURL = svgURL

1 Like