Fare clic con il tasto destro per chiamare una macro
Ecco un codice che consentirà a un utente di selezionare la macro dal menu predefinito che appare dopo aver fatto clic con il pulsante destro del mouse su una cella.
1. Inserisci il seguente codice nella finestra del codice ThisWorkbook
Private Sub Workbook_Open() Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus(xlWorksheetCell) _ .MenuItems.AddMenu("Questo è il mio menu personalizzato", 1) With MyMenu.MenuItems .Add "MyMacro1", "MyMacro1", , 1 , , "" .Add "MyMacro2", "MyMacro2", , 2, , "" End With Set MyMenu = Nothing End Sub
2. Inserisci il seguente codice in un modulo
Public Sub mymacro1() MsgBox "Macro1 da un menu di scelta rapida" End Sub Public Sub mymacro2() MsgBox "Macro2 da un menu di scelta rapida" End Sub
3. Chiudi la cartella di lavoro e riaprila!
