Finestra di dialogo

Discussioni sull'applicazione per i fogli di calcolo
Rispondi
Ant52
Messaggi: 176
Iscritto il: sabato 18 agosto 2018, 15:38

Finestra di dialogo

Messaggio da Ant52 »

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.


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
Ultima modifica di charlie il martedì 17 settembre 2019, 13:13, modificato 1 volta in totale.
Motivazione: Formattato codice
OpenOffice 4.1.5 Windows 10
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Finestra di dialogo

Messaggio da charlie »

Rilancio
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Ant52
Messaggi: 176
Iscritto il: sabato 18 agosto 2018, 15:38

Re: Finestra di dialogo

Messaggio da Ant52 »

Grazie mille per il tutorial molto interessante.
OpenOffice 4.1.5 Windows 10
Avatar utente
unlucky83
Volontario
Volontario
Messaggi: 2355
Iscritto il: lunedì 7 gennaio 2013, 1:23
Località: Latina

Re: Finestra di dialogo

Messaggio da unlucky83 »

Buonasera
Il problema non sembra essere nella macro. Da quanto dici capisco che la finestra di dialogo "Menu" si apre correttamente, i pulsanti si vedono, ma cliccandoci non passi da un foglio ad un altro. La macro associata al pulsante chiude anche la finestra di dialogo, mi chiedo..esegue almeno questo comando?
Se non fa nemmeno questo, forse hai tolto l'associazione tra pulsante e macro.
Non puoi allegare il file?
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Rispondi