Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
msoButtonUp / Down for sub-menu items
Hi all
I have a problem with a toolbar Im developing. What I want to do is have a tick button next to the sub-menu item (Show New Toolbar) using msoButtonUp / Down. I can sort out the syntax to do this to the main menu item (Toolbar) but am struggling to get it next to the sub-menu. This is a portion of the code Im using : Sub Menu() Dim HelpMenu As CommandBarControl, NewMenu As CommandBarPopup Dim MenuItem As CommandBarControl, Submenuitem As CommandBarButton Set HelpMenu = CommandBars(1).FindControl(Id:=30010) Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, Befo=HelpMenu.Index, temporary:=True) NewMenu.Caption = "My Toolbars" Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup) With MenuItem ..Caption = "Toolbar" ..BeginGroup = True End With Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton) With Submenuitem ..Caption = "Show New Toolbar" ..OnAction = "Macro1" End With End Sub Any ideas anyone? Thanks Dominic |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Menu items | Excel Discussion (Misc queries) | |||
New menu items | Excel Programming | |||
Menu items added with menu item editor in older versions | Excel Discussion (Misc queries) | |||
Toggle CommandBarControls msoButtonDown/msoButtonUp | Excel Programming | |||
Sub Menu Items | Excel Programming |