[Risolto] Rileva il Nome del Pulsante Cliccato

[Biagio91]

Ciao, ho cercato nel forum, forse mi sono perso qualcosa ma non ho trovato una soluzione diretta al mio dilemma che vi espongo di seguito;
Come fare ad ottenere il Nome del Pulsante cliccato?
Da alcuni esempi tratti, ho provato ad utilizzare questa parte di codice, che non capisco perché mi va in errore:
Dopo aver creato un file nuovo, in cui inserisco un pulsante chiamato "Pulsante 1" a cui nell'evento su click del mouse assegno l'esecuzione del Sub Prova, vorrei avere il riscontro descritto nel codice, per utilizzarlo successivamente articolando il tutto con delle azioni da eseguire a seconda del NomePulsante

Codice: Seleziona tutto

Sub Prova
Doc = ThisComponent
Rem Rileva il nome del pulsante cliccato
NomePulsante = Event.Source.Model.Name
PulsanteScelto= MsgBox ("Hai scelto" & NomePulsante & "?", 0, "Riscontro Pulsante Scelto")
End Sub

Dove sto sbagliando?

Grazie mille
Ciao

[patel]

Codice: Seleziona tutto

Sub Prova(Event)
NomePulsante = Event.Source.Model.Name
PulsanteScelto= MsgBox ("Hai scelto" & NomePulsante & "?", 0, "Riscontro Pulsante Scelto")
End Sub

[Biagio91]

Che mammalucco che sono

Grazie mille patel