help create custom shortcut key or right menu in vbe editor

[pedie]

Hi Everyone, please help create custom shortcut key (Ctrl + Shift + I) or right menu in vbe editor.

Thanks all.
Pedie

Currently I use this method for worksheet right click. Now i want it for VBE Editor.

Sub AddToCellMenu()
    Dim ContextMenu As CommandBar
    Dim MySubMenu As CommandBarControl


    ' Delete the controls first to avoid duplicates.
    Call DeleteFromCellMenu


    ' Set ContextMenu to the Cell context menu.
    Set ContextMenu = Application.CommandBars("Cell")


    ' Add one built-in button(Save = 3) to the Cell context menu.
    ContextMenu.Controls.Add Type:=msoControlButton, ID:=3, before:=1


    ' Add one custom button to the Cell context menu.
    With ContextMenu.Controls.Add(Type:=msoControlButton, before:=2)
        .OnAction = "'" & ThisWorkbook.Name & "'!" & "ToggleCaseMacro"
        .FaceId = 59
        .Caption = "Toggle Case Upper/Lower/Proper"
        .Tag = "My_Cell_Control_Tag"
    End With


    ' Add a custom submenu with three buttons.
    Set MySubMenu = ContextMenu.Controls.Add(Type:=msoControlPopup, before:=3)


    With MySubMenu
        .Caption = "Case Menu"
        .Tag = "My_Cell_Control_Tag"


        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "UpperMacro"
            .FaceId = 100
            .Caption = "Upper Case"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "LowerMacro"
            .FaceId = 91
            .Caption = "Lower Case"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "ProperMacro"
            .FaceId = 95
            .Caption = "Proper Case"
        End With
    End With


    ' Add a separator to the Cell context menu.
'    ContextMenu.Controls(4).BeginGroup = True
    
End Sub

 

[Domenic]

Try...

Set ContextMenu = Application.VBE.CommandBars("Code Window")

Hope this helps!

 

[pedie]

thnks! that worked great

 

[Domenic]

You're very welcome!