Spisie treści
Kliknij prawym przyciskiem myszy, aby wywołać makro
Oto kod, który pozwoli użytkownikowi wybrać makro z domyślnego menu, które pojawia się po kliknięciu komórki prawym przyciskiem myszy.
1. Umieść następujący kod w oknie kodu ThisWorkbook
Private Sub Workbook_Open() Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus(xlWorksheetCell) _ .MenuItems.AddMenu("To jest moje niestandardowe menu", 1) Z MyMenu.MenuItems .Add "MyMacro1", "MyMacro1", , 1 , , "" .Add "MojeMakro2", "MojeMakro2", , 2, , "" End With Set MojeMenu = Nic Koniec Sub
2. Umieść następujący kod w module
Public Sub mymacro1() MsgBox "Makro1 z menu prawego przycisku myszy" End Sub Public Sub mymacro2() MsgBox "Makro2 z menu prawego przycisku myszy" End Sub
3. Zamknij skoroszyt i otwórz ponownie!