Actualmente tengo instalado libreoffice 5.2.5.1 en opensuse Leap 42.2 con KDE plasma 5.8.6
El codigo siguiente lo uso para colocar una imagen incrustada en la hoja de calc como fondo de un dialogo. Para no depender de cargar una imagen desde una carpeta y poder llevar la planilla de calc sin tener el problema de grabar también la carpeta de las imágenes junto con la planilla.
Código: Seleccionar todo
REM ***** BASIC *****
Private Dlg As object
sub main
Dim oPaginaDibujo As Object
DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
oPaginaDibujo = ThisComponent.getCurrentController.getActiveSheet.getDrawPage()
i = 0
do
oForma = oPaginaDibujo.getByIndex(i)
If oForma.Name = "Fondo" Then
exit do
End if
i = i + 1
loop While i < oPaginaDibujo.getCount()
oDlgModele = Dlg.Model
with oDlgModele
.PositionX = 100
.PositionY = 100
.ImageURL = oForma.GraphicURL
.Width = 190
.Height = 145
.Title = "Graficos"
End with
oDlgControle = createUnoService( "com.sun.star.awt.UnoControlDialog" )
oDlgControle.setModel( oDlgModele )
dlg.Execute()
end sub
sub Salir_
dlg.endExecute()
end subIncluso en la versión que estoy usando en modo de diseño el dialogo me muestra la imagen de fondo pero al ejecutarlo desde el entorno la ventana queda vacia como si la propiedad .ImageURL no estuviese implementada en el cuadro dialogo.
Necesito saber que esta mal o si algo cambio dado que el codigo ya no funciona.
