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

Hi phil

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

--

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


"Phil" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> 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
>

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

Tom and Ron:

Thank you. That worked.

Phil