CommandBar not Visible on Chart Pages

[Phil]

How do I get a commandbar to appear on all worksheet and chart pages?
(The following code creates MyMenu visible only from worksheets, but
not from chart pages.)

Thanks for your thoughts.

Dim cp_NewMenu As CommandBarPopup
Dim i_HelpIndex As Integer
i_HelpIndex = CommandBars(1).Controls("&Help").Index
Set cp_NewMenu = CommandBars(1) _
.Controls.Add(Type:=msoControlPopup, _
Before:=i_HelpIndex, Temporary:=True)
cp_NewMenu.Caption = "&My Menu"

Phil

 

[Ron de Bruin]

Hi phil

Run you code also for number 2
CommandBars(2)...................

 

[Tom Ogilvy]

There are two separate main menu bars

Worksheet Menu Bar index 1
Chart Menu Bar index 2

When a chart is active, then the Chart Menu Bar replaces the Worksheet Menu
Bar. So you would have to make modifications to both.

 

[Phil]

Tom and Ron:

Thank you. That worked.

Phil