Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 15. 5. 2014 13:09:07

ludviktrnka
Člen
Registrace: 9. 7. 2009
Příspěvků: 697

vnoření makra VYŘEŠENO

Dobrý den. Zkouším vnořit jedno makro do druhého a nějak se mi to nedaří. První makro jsem vytvořil nahráváním a upravil tak aby dostávalo vstup "pozice as string", druhé makro by zatím nemělo dělat nic jiného než volat to první makro a předat mu hodnotu proměnné "pozice". Někde ovšem dělám chybu, nefunguje to :-(. Pomůžete mi prosím?

Sub presun (pozice as string)

dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = pozice
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
end sub

Sub pokus

presun("B2")

end sub

EDIT: sorry su blbec, funguje to dobře, já jsem měl v modulu dvě makra stejného názvu "pokus" ...

Editoval ludviktrnka (15. 5. 2014 13:59:48)


LibreOffice 5.4.

Offline

Zápatí