Adding a menu selection that features a shortcut key : Menu « Application « VBA / Excel / Access / Word

Adding a menu selection that features a shortcut key

Sub AddMenuItem()
    Dim ToolsMenu As CommandBarPopup
    Dim NewMenuItem As CommandBarButton
    Call DeleteMenuItem
    Set ToolsMenu = CommandBars(1).FindControl(Id:=30007)
    If ToolsMenu Is Nothing Then
        MsgBox "Cannot add a menu item - use Ctrl+Shift+C."
        Exit Sub
        Set NewMenuItem = ToolsMenu.Controls.Add _
        With NewMenuItem
            .Caption = "&yourCaption"
            .FaceId = 348
            .ShortcutText = "Ctrl+Shift+C"
            .OnAction = "yourAction"
            .BeginGroup = True
        End With
    End If
    Application.MacroOptions Macro:="yourMacro",HasShortcutKey:=True,ShortcutKey:="C"
End Sub


Related examples in the same category

1.Creating a Menu Bar
2.Add a new menubar with toggle action
3.Controling a CommandBarControl's Visibility
4.Deletes a control tagged "MyMenu2"
5.Create Submenus
6.Adds button, combobox, text box and drop down to tools menu
7.List Menu Information
8.List ShortCut Menus
9.Adding and deleting menus automatically
10.Disabling or hiding menus
11.Working with checked menu items
12.Disabling a shortcut menu
13.Enables the shortcut menu when the workbook is closed.
14.Create a new menu bar that replaces the existing menu bar
15.Adding a menu: Take 1
16.Adding the Budgeting menu to Excel's main menu bar
17.Determined the Id property of the Help menu by executing the following statement:
18.Deleting a menu from a menu bar
19.Adding selections and submenu items to the Budgeting menu
20.Adding a selection to Excel's Tools menu
21.Deleting a menu item from the Tools menu
22.Adding menu items to shortcut menus
23.Deleting menu items from shortcut menus
24.removes the Hide menu item from two shortcut menus: the one that appears when you right-click a row header and the one that appears for a column header.
25.Disabling shortcut menu items
26.Disabling shortcut menus
27.If you want to disable all shortcut menus, use the following procedure:
28.Resetting shortcut menus: The Reset method restores a shortcut menu to its original condition.
29.Creating an entirely new and separate shortcut menu
30.Adding a new item to the Cell shortcut menu
31.Create a popup menu