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, _
Befo=i_HelpIndex, Temporary:=True)
cp_NewMenu.Caption = "&My Menu"

Phil

Hi phil

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Phil" wrote in message oups.com...
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, _
Befo=i_HelpIndex, Temporary:=True)
cp_NewMenu.Caption = "&My Menu"

Phil

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.

--
Regards,
Tom Ogilvy


"Phil" wrote:

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, _
Befo=i_HelpIndex, Temporary:=True)
cp_NewMenu.Caption = "&My Menu"

Phil

Tom and Ron:

Thank you. That worked.

Phil