Create custom submenu using commandbar

[j312ry]

Hi All Gurus,

I want to know on how to add submenu into custom menu we already have.

My code is just like this :

[VBA]
Sub AddMenus()
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim cbcCutomMenu As CommandBarControl

Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup)

cbcCutomMenu.Caption = "&New Menu"

With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "Menu 1"
.OnAction = "MyMacro1"
End With

With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "Menu 2"
.OnAction = "MyMacro2"
End With
End Sub
[/VBA]

Lets say i want to give additional submenu on Menu 1, how i can do it?

Please help me to solve this one...a lot of thank you before

[mohanvijay]

Little example

[vba]
Dim Ma_Po As CommandBarPopup
Dim Su_Po As CommandBarPopup
Dim Su_Bu As CommandBarButton
Dim Su_Bu2 As CommandBarButton

Set Ma_Po = Application.CommandBars(1).Controls.Add(msoControlPopup)
Ma_Po.Caption = "&New Menu"
Set Su_Po = Ma_Po.Controls.Add(msoControlPopup)
Su_Po.Caption = "Menu 1 pop up"
Set Su_Bu = Su_Po.Controls.Add(msoControlButton)
Su_Bu.Caption = "Sub Menu 1"
Set Su_Bu2 = Ma_Po.Controls.Add(msoControlButton)
Su_Bu2.Caption = "Menu 2"
[/vba]

[j312ry]

Great It works !!

Thank you so much

[j312ry]

Just a quick question, is that possible to give Faceid to msoControlPopup?

It return an error when i tried this :
Ma_Po.Controls.faceid = 582

Thanks

[j312ry]

Sorry, i mean : Su_Po.faceid = xxx

This code return an error.

Thanks before..

Little example

[vba]
Dim Ma_Po As CommandBarPopup
Dim Su_Po As CommandBarPopup
Dim Su_Bu As CommandBarButton
Dim Su_Bu2 As CommandBarButton

Set Ma_Po = Application.CommandBars(1).Controls.Add(msoControlPopup)
Ma_Po.Caption = "&New Menu"
Set Su_Po = Ma_Po.Controls.Add(msoControlPopup)
Su_Po.Caption = "Menu 1 pop up"
Set Su_Bu = Su_Po.Controls.Add(msoControlButton)
Su_Bu.Caption = "Sub Menu 1"
Set Su_Bu2 = Ma_Po.Controls.Add(msoControlButton)
Su_Bu2.Caption = "Menu 2"
[/vba]

[mohanvijay]

commandbarpopup object does not have a Faceid property while commandbarbutton object does

see the all the methods and properties of these objects in object browser

[mikerickson]

j321ry,
Welcome to the forum.

I'm glad you found help, but I remind you that you agreed to post a link when you cross post a question.

Why cross posting is an issue and how to do it is explained here. LINK

cross posted at:
http://www.ozgrid.com/forum/showthread.php?t=161141

[j312ry]

Hi mohanvijay many thanks for your quick reply..

commandbarpopup object does not have a Faceid property while commandbarbutton object does

see the all the methods and properties of these objects in object browser

[j312ry]

Hi mikerickson,

I'm sorry about that, next time i do cross post a question i will post the link as well. i'm a very newbie for this and just want to get a quick response from our expert.

Thanks for reminds me..

j321ry,
Welcome to the forum.

I'm glad you found help, but I remind you that you agreed to post a link when you cross post a question.

Why cross posting is an issue and how to do it is explained here. LINK

cross posted at:
http://www.ozgrid.com/forum/showthread.php?t=161141

[olcsaravanan]

hi,

how to create a menu in user-form ?

[GTO]

For a menu, take a look Here

For a context menu, Here