Kliknutím pravým tlačítkem zavoláte makro
Zde je kód, který uživateli umožní vybrat vaše makro z výchozí nabídky, která se zobrazí po kliknutí pravým tlačítkem na buňku.
1. Vložte následující kód do okna kódu ThisWorkbook
Private Sub Workbook_Open () Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus (xlWorksheetCell) _ .MenuItems.AddMenu ("This is my Custom Menu", 1) With MyMenu.MenuItems .Add "MyMacro1", "MyMacro1",, 1 ,, "" .Přidat "MyMacro2", "MyMacro2",, 2,, "" Konec Nastavit MyMenu = Nic Konec Sub
2. Vložte následující kód do modulu
Public Sub mymacro1 () MsgBox "Macro1 z nabídky pravým tlačítkem" End Sub Public Sub mymacro2 () MsgBox "Macro2 z nabídky pravým kliknutím" End Sub
3. Zavřete sešit a znovu otevřete!
