Wijzig het rechtsklikmenu om een ​​macro aan te roepen - VBA-codevoorbeelden

Klik met de rechtermuisknop om een ​​macro aan te roepen

Hier is wat code waarmee een gebruiker uw macro kan selecteren in het standaardmenu dat verschijnt nadat hij met de rechtermuisknop op een cel heeft geklikt.

1. Zet de volgende code in het ThisWorkbook-codevenster:

 Private Sub Workbook_Open() Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus(xlWorksheetCell) _ .MenuItems.AddMenu("Dit is mijn aangepaste menu", 1) With MyMenu.MenuItems .Add "MyMacro1", "MyMacro1", , 1 , , "" .Toevoegen "MyMacro2", "MyMacro2", , 2, , "" End With Set MyMenu = Nothing End Sub

2. Zet de volgende code in een module

 Public Sub mymacro1() MsgBox "Macro1 vanuit een rechtsklikmenu" End Sub Public Sub mymacro2() MsgBox "Macro2 vanuit een rechtsklikmenu" End Sub

3. Sluit je werkmap en open hem opnieuw!