G
Guest
I have a simple menu set that loads a menu item ("Menu Item") and then
creates two items below it (Sub Item 1 and Sub Item 2). See Code Below
Menu Item
Sub Item 1
Sub Item 2
I now want to create sub items for each of the two items
Menu Item
Sub Item 1
Sub Item 1.1
Sub Item 1.2
Sub Item 2
Sub Item 2.1
Sub Item 2.2
How do I expand the code below to incorporate the new tier of sub menu items.
Thanks EM
NewMenu.Caption = "&Menu Item"
'Set First Tier of Menue Items
'First Menu Item
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Sub Item 1"
.FaceId = 590
'Call macro when chosen
.OnAction = "Macro 1"
End With
'Second Menu Item
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Sub Item 2"
.FaceId = 591
'Call macro when chosen
.OnAction = "Macro 2"
End With
creates two items below it (Sub Item 1 and Sub Item 2). See Code Below
Menu Item
Sub Item 1
Sub Item 2
I now want to create sub items for each of the two items
Menu Item
Sub Item 1
Sub Item 1.1
Sub Item 1.2
Sub Item 2
Sub Item 2.1
Sub Item 2.2
How do I expand the code below to incorporate the new tier of sub menu items.
Thanks EM
NewMenu.Caption = "&Menu Item"
'Set First Tier of Menue Items
'First Menu Item
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Sub Item 1"
.FaceId = 590
'Call macro when chosen
.OnAction = "Macro 1"
End With
'Second Menu Item
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Sub Item 2"
.FaceId = 591
'Call macro when chosen
.OnAction = "Macro 2"
End With