Tengo un problema con una imagen que quiero pegar por codigo basic pero se me está resistiendo, he conseguido que si he utilizado el portapapeles me lo hace pero caso contrario no me incluye la foto sino un texto que me dice que falta la foto.
Os incluyo la macro que hice para ver si alguien tiene alguna idea
sub pegarimagen
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 7
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Nr"
args3(0).Value = 6
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args3())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$M$13"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Format"
args6(0).Value = 141
dispatcher.executeDispatch(document, ".uno:PasteSpecial", "", 0, args6())
end sub
Esto era una prueba lo que quiero realmente es crear una subrutina para decirle donde quiero anclar la foto porque la necesito varias veces en la hoja dependiendo de lo grande que sea el numero de registros
pegar una imagen de una hoja en otra
pegar una imagen de una hoja en otra
OPENOFFICE 4.1.2 en windows 8.1