Página 1 de 1

pegar una imagen de una hoja en otra

NotaPublicado: Lun Dic 17, 2018 8:31 am
por marcjl
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