Finestra di dialogo
Inviato: martedì 17 settembre 2019, 9:42
Buongiorno,
un paio di mesi fa, grazie al preziosissimo aiuto di Gaetanopard, ero riuscito a creare una finestra di dialogo "Menu"" con vari pulsanti collegati a delle macro che svolgevano alcune operazioni. Adesso, inspiegabilmente, non mi funzionano più i pulsanti che aprivano i singoli fogli. Allego la macro di uno di questi pulsanti che apriva il foglio n. 1, sperando in un vostro aiuto. Grazie.
un paio di mesi fa, grazie al preziosissimo aiuto di Gaetanopard, ero riuscito a creare una finestra di dialogo "Menu"" con vari pulsanti collegati a delle macro che svolgevano alcune operazioni. Adesso, inspiegabilmente, non mi funzionano più i pulsanti che aprivano i singoli fogli. Allego la macro di uno di questi pulsanti che apriva il foglio n. 1, sperando in un vostro aiuto. Grazie.
Codice: Seleziona tutto
Rem Attribute VBA_ModuleType=VBADocumentModule
Sub ApriAsseverazione
DialogLibraries.LoadLibrary("Standard")
DlgMenu = CreateUnoDialog(DialogLibraries.Standard.Menu)
Dlg.endExecute()
DlgMenu.endExecute()
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 = 1
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
end sub