Custom Menu
 

:confused: My items in custom menu are not listed when I press
Alt+-<Letter- . How to solve it????? Many thanks.



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Custom Menu
 

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



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Custom Menu
 

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.

--
Dianne

In ,
ewize1 typed:
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.