Pannello di Controllo Moderatore ]

Finestra di dialogo

Finestra di dialogo

Messaggioda Ant52 » 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.



Codice: Seleziona tutto   Espandi visualeStringi visuale
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
Ant52
 
Messaggi: 138
Iscritto il: sabato 18 agosto 2018, 15:38

Re: Finestra di dialogo

Messaggioda charlie » domenica 29 settembre 2019, 9:41

Rilancio
charlie
macOS 10.12 Sierra: Open Office 4.1.9 - LibreOffice 6.4.6.2
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
Site Admin
Site Admin
 
Messaggi: 7568
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Finestra di dialogo

Messaggioda Ant52 » mercoledì 2 ottobre 2019, 8:51

Grazie mille per il tutorial molto interessante.
OpenOffice 4.1.5 Windows 10
Ant52
 
Messaggi: 138
Iscritto il: sabato 18 agosto 2018, 15:38

Re: Finestra di dialogo

Messaggioda unlucky83 » sabato 5 ottobre 2019, 0:30

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?
LibO5.1.6.2-Ubuntu 16.04.2 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Avatar utente
unlucky83
Volontario
Volontario
 
Messaggi: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina


Torna a Calc

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite