Add submenu Items

  • Thread starter Thread starter Renato
  • Start date Start date
R

Renato

I've been using the following code to enter custom menu
items in a template.

Sub AddMenuItem()
Dim Item As CommandBarControl
Set Item = CommandBars(1).Controls("Budgeting") _
.Controls.Add
Item.Caption = "&January"
Item.BeginGroup = True
End Sub

This works fine. I need to add a submenu item to the
custom menu. so when click january other submenus pop
up. I was look at the help file for VBA, but am unable
to locate this specific topic.
Any help would be greatly appreciated.

Renato
 
Sub AddMenuItem()
Dim Item As CommandBarControl
Set Item = CommandBars(1).Controls("Budgeting") _
.Controls.Add(type:=msoControlPopup)
with Item
.Caption = "&January"
.BeginGroup = True
Set subItem = .Controls.Add(Type:=msoControlButton)
With subItem
.Caption = "Day1"
End With
Set subItem = .Controls.Add(Type:=msoControlButton)
With subItem
.Caption = "Day2"
End With
'etc.
End With
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)
 
thanks a lot.
I appreciate you help.
Renato
-----Original Message-----
Sub AddMenuItem()
Dim Item As CommandBarControl
Set Item = CommandBars(1).Controls("Budgeting") _
.Controls.Add(type:=msoControlPopup)
with Item
.Caption = "&January"
.BeginGroup = True
Set subItem = .Controls.Add (Type:=msoControlButton)
With subItem
.Caption = "Day1"
End With
Set subItem = .Controls.Add (Type:=msoControlButton)
With subItem
.Caption = "Day2"
End With
'etc.
End With
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)





.
 
Back
Top