salve
al menù contestuale si possono applicare modifiche come si vuole.
sempre che le modifiche vengono fatte sul proprio Pc.
un esempio semplice semplice di come manipolare i comandi del menù contestuale.
1) bisogna conoscere i nomi dei comandi, con la macro che segue si avrà una lista di essi:
Sub ListCbar_Cell()
Dim ctrl As CommandBarControl
n = 1
For Each ctrl In Application.CommandBars("Cell").Controls
Cells(n, 1).Value = ctrl.Caption
n = n + 1
Next
End Sub
2) una volta individuato il nome del comando che vogliamo eliminare ad esempio il comando copia (&Copia)
con la macro seguente togliamo il comando dal menù contestuale:
Sub StopControl()
Dim ctrl As CommandBarControl
For Each ctrl In Application.CommandBars("Cell").Controls
If ctrl.Caption = "&Copia" Then ctrl.Delete
Next
End Sub
con quest'altra macro, verranno ripristinatyi i comandi di default:
Sub ReseItem()
CommandBars("Cell").Reset
End Sub
Per aggiungere comandi personalizzati si userà una istruzione tipo quella che segue
Set ctrl = Application.CommandBars("Cell").Controls.Add _
(Type:=msoControlPopup, Before:=1)
ctrl.Caption = "Nome comando..."
all'interno di una routine che richiamerà una macro per eseguire i comandi
saluti
Giap
