Adding menu items

  • Thread starter Thread starter Claud Balls
  • Start date Start date
C

Claud Balls

I've tried a number of different examples with no luck, so I tried
cutting the examples down to the minimum amount of code needed to add an
item to the menu bar. This is what I came up with:

Sub new_menu()
Dim cbmDemoMenu As CommandBarPopup

On Error Resume Next
Application.CommandBars("Menu Bar") _
.Controls("DEMO").Delete
Set cbmDemoMenu = Application.CommandBars("Menu Bar") _
.Controls.Add(msoControlPopup, "DEMO", , 3, True)
End Sub

I had no luck. I've searched the board, and microsoft's site. Both had
great examples, but ended in invalid procedure calls.
 
Is "Menu Bar" your own customized toolbar?

If no, then maybe:

Option Explicit

Sub new_menu()
Dim cbmDemoMenu As CommandBarPopup
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar") _
.Controls("DEMO").Delete
On Error GoTo 0
Set cbmDemoMenu = Application.CommandBars("worksheet Menu Bar") _
.Controls.Add(Type:=msoControlPopup, temporary:=True)
cbmDemoMenu.Caption = "DEMO"
End Sub
 
Back
Top