Per conoscenza il 560 non corrisponde all'icona DOS, ma ho usato la 69 che raffigura un monitor.
Andando avanti con le necessita, su questo tasto destro necessiterei di passare una stringa ad un comando personalizzato, io per aprire il menu uso:
If Button = acRightButton Then CommandBars("cbarAuP").ShowPopup
ma mi servirebbe passare una variabile che prendo dalla maschera.
la sub del modulo che uso è questa:
Public Sub cbarAuP(Optional Reset As Boolean, Optional Seriale As String)
Dim cbr As CommandBar 'Object '
Dim Pulsante As CommandBarButton 'Object '
Dim cbrButton As CommandBarButton 'Object '
On Error GoTo cbarStandardError
If CmdBarExists("cbarAuP") Then
If Reset = False Then Exit Sub
DeleteCmdBar "cbarAuP"
End If
Set cbr = CommandBars.Add("cbarAuP", 5, , True)
With cbr
'Set cbrButton = cbr.Controls.Add(msoControlButton, 247, , , True) 'COMANDO STANDARD
Set Pulsante = cbr.Controls.Add(msoControlButton, , , , True) 'COMANDO PERSONALIZZATO
With Pulsante
.FaceId = 69
.OnAction = "ControlloRA"
.Parameter = Seriale
Pulsante.Caption = "CONTROLLO RA"
End With
End With
che richiama la sub:
Sub ControlloRA(Seriale As String)
MsgBox ("Pulsante Personalizzato 1 menu AuP " & Seriale)
End Sub
sai mica indicarmi come procedere??