Add submenu Items

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
 
B

Bob Phillips

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)
 
G

Guest

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)





.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top