Modifique el menú contextual para llamar a una macro: ejemplos de código VBA

Haga clic con el botón derecho para llamar a una macro

Aquí hay un código que permitirá al usuario seleccionar su macro en el menú predeterminado que aparece después de hacer clic con el botón derecho en una celda.

1. Coloque el siguiente código en la ventana de código de 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 ,, "" .Agregue "MyMacro2", "MyMacro2",, 2,, "" Terminar con Establecer MyMenu = Nothing End Sub

2. Coloque el siguiente código en un módulo

 Public Sub mymacro1 () MsgBox "Macro1 desde un menú contextual" End Sub Public Sub mymacro2 () MsgBox "Macro2 desde un menú contextual" End Sub

3. ¡Cierre su libro de trabajo y vuelva a abrirlo!