Custom Menu

  • Thread starter Thread starter ewize1
  • Start date Start date
E

ewize1

:confused: My items in custom menu are not listed when I press
Alt+-<Letter>- . How to solve it????? Many thanks.
 
Unlike the other built-in drop down menus which show all their items
when they are invoked by pressing Alt+<Letter>, e.g. Alt+F shows,
Open..., Save, etc. The items in my custom menu are not listed when I
press Alt+R. How to solve it????? Many thanks.

Here is my code:

Sub CreateMenu()
Dim cbcPop as CommandBarControl
Dim cbcAnx as CommandBarControl

Set cbcPop = Application.CommandBars("Worksheet menu
bar").Controls.Add(Type:=msoControlPop)
cbcPop.Caption = "&RAM"
cbcPop.Visible = True

Set cbcAnx = cbcPop.Controls.Add(Type:=msoControlButton)
cbcAnx.Visible = True
cbcAnx.Caption = "Create Annex &D"
cbcAnx.OnAction = "AnnexeD"
End Sub
 
I've had this happen when I have two menu items with the same shortcut
letter. Neither drops down, but the focus shifts back and forth from one
menu item to the other, IIRC.
 
Back
Top