Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add submenu to custom menu
I have a custom menu on the menu bar. There are 2 menus. I want to
add a sub menu as follows: Test Analyses Explore Test Type 1 -- call sub1 Type 2 -- call sub2 Plan Test -- call sub3 Here is the code so far: Set newmen = MenuBars(xlWorksheet).Menus.Add("Test &Analyses") newmen.MenuItems.Add "E&xplore Test", "getEXPLOREdata" newmen.MenuItems.Add "&Plan Test", "getPLANdata" Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add submenu to custom menu
try this... John
Sub CreateMenu() Dim HelpMenu As CommandBarControl Dim NewMenu As CommandBarPopup Dim MenuItem As CommandBarControl Dim Submenuitem As CommandBarButton Call DeleteMenu Set NewMenu = CommandBars(1).Controls.Add _ (Type:=msoControlPopup, _ temporary:=True) NewMenu.Caption = "&Budgeting" Set MenuItem = NewMenu.Controls.Add _ (Type:=msoControlPopup) With MenuItem .Caption = "&Submenus" .BeginGroup = True End With Set Submenuitem = MenuItem.Controls.Add _ (Type:=msoControlButton) With Submenuitem .Caption = "Sub &1" .OnAction = "Macro1" End With Set Submenuitem = MenuItem.Controls.Add _ (Type:=msoControlButton) With Submenuitem .Caption = "Sub &2" .OnAction = "Macro2" End With End Sub -----Original Message----- I have a custom menu on the menu bar. There are 2 menus. I want to add a sub menu as follows: Test Analyses Explore Test Type 1 -- call sub1 Type 2 -- call sub2 Plan Test -- call sub3 Here is the code so far: Set newmen = MenuBars(xlWorksheet).Menus.Add("Test &Analyses") newmen.MenuItems.Add "E&xplore Test", "getEXPLOREdata" newmen.MenuItems.Add "&Plan Test", "getPLANdata" Thanks . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Add XML submenu | Excel Discussion (Misc queries) | |||
How to add a submenu to a submenu? | New Users to Excel | |||
XML submenu | Excel Discussion (Misc queries) | |||
Custom Menu Help | Excel Worksheet Functions | |||
Custom menu | Excel Worksheet Functions |