Submenus on Shortcut Menus

Z

ZipCurs

I have a number of custom popup/shortcut menus I have created using the basic
format of:

With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlButton, before:=1, temporary:=True)
.Caption = "Records"
.OnAction = "GoToRecords"
End With

For clarity sake and incase I am using the wroing terms, a short menu for me
is a temporary menu that appears near a cell when you right click it. I am
now interested in adding submenus to some of the popup menus buttons. I am
assuming that these would appear when you click the menu item. How do I go
about doing this? Thank you in advance for your assistance.
 
J

Jim Rech

With CommandBars("Cell").Controls.Add(msoControlPopup, , , , True)
.Caption = "New Sub Menu"
With .Controls.Add(msoControlButton)
.Caption = "New Sub menu menuitem"
.....
End With
End With


--
Jim
|I have a number of custom popup/shortcut menus I have created using the
basic
| format of:
|
| With Application.CommandBars("cell").Controls _
| .Add(Type:=msoControlButton, before:=1, temporary:=True)
| .Caption = "Records"
| .OnAction = "GoToRecords"
| End With
|
| For clarity sake and incase I am using the wroing terms, a short menu for
me
| is a temporary menu that appears near a cell when you right click it. I
am
| now interested in adding submenus to some of the popup menus buttons. I
am
| assuming that these would appear when you click the menu item. How do I
go
| about doing this? Thank you in advance for your assistance.
 

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