Changing the Excel Command Bar

[Case250]

Hi everyone.
I am trying to add a menu item to another menu item.


Example: I have added a menu called "Product" to the Worksheet command bar between the "Window" and "Help" menus. Within this new "Product" menu I have added a menu item called "Export" by doing as follows:

Set Item = CommandBars(1).Controls("Product").Controls.Add
Item.Caption = "&Export"
Item.OnAction = "ExportMacro"

Now I want to add additional menu items so that they appear or becom availiable when the user moves the hovers the mouse cursor over the "Export" menu item. To see what I am wanting to do; in Excel go "File" then "Print View". When you hover the cursor over "Print View" it reveals several other menu item options. How do I do this?
Thanks

 

[DominicB]

Good afternoon Case250

Use something like this. I can't tailor this code any closer to your own project as you haven't posted the code you've used.

Sub Test()
Dim NewMenu As CommandBarPopup, MenuItem As CommandBarControl, Submenuitem As CommandBarButton
Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, temporary:=True)
NewMenu.Caption = "My Menu"
Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup)
MenuItem.Caption = "My Menu Item"
Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
Submenuitem.Caption = "My Sub Menu Item"
End Sub

HTH

DominicB

 

[Case250]

Thanks,
That did it.