Can See CommandBarButton CommandBars("Cell")

[theozz]

Many Tanks for Your Knowledge
this time I want know one question

at Application.CommandBars("Cell")

I add CommandBarButton but...

when ActiveWindow.View = xlNormalView
that time I can see New Added Button

but

ActiveWindow.View = xlPageBreakPreview
that time I can see New Added Button Never only Default button.

have any idea???

 

[xenou]

Hi,
there are more than one "Cell" bar, as you should see here:

[COLOR="Navy"]Sub[/COLOR] f01()

[COLOR="Navy"]Dim[/COLOR] x [COLOR="Navy"]As[/COLOR] CommandBar
[COLOR="Navy"]Dim[/COLOR] intCount [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]

[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] x [COLOR="Navy"]In[/COLOR] Application.CommandBars
    [COLOR="Navy"]If[/COLOR] x.Name = "Cell" [COLOR="Navy"]Then[/COLOR]
        intCount = intCount + 1
        MsgBox "Command Bar Cell - " & intCount
    [COLOR="Navy"]End[/COLOR] [COLOR="Navy"]If[/COLOR]
[COLOR="Navy"]Next[/COLOR] x

[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Hence, you can resolve this by looping through all the Cell command bars and adding your button to both of them. In the following example I am adding a menu item, but you should be able to adapt the same approach with your button):

[COLOR="Navy"]Sub[/COLOR] f02()

[COLOR="Navy"]Dim[/COLOR] x [COLOR="Navy"]As[/COLOR] CommandBar
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] x [COLOR="Navy"]In[/COLOR] Application.CommandBars
    [COLOR="Navy"]If[/COLOR] x.Name = "Cell" [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]With[/COLOR] x.Controls
             [COLOR="Navy"]With[/COLOR] .Add
                .Caption = "New Command"
                .OnAction = ThisWorkbook.Name & "!MyMacro" 
                .Tag = "Formulas2" 
            [COLOR="Navy"]End[/COLOR] [COLOR="Navy"]With[/COLOR]
        [COLOR="Navy"]End[/COLOR] [COLOR="Navy"]With[/COLOR]
    [COLOR="Navy"]End[/COLOR] [COLOR="Navy"]If[/COLOR]
[COLOR="Navy"]Next[/COLOR] x

[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

HTH,
ξ

Note:
For other readers of this post, helpful links on right click menus:
http://www.mvps.org/dmcritchie/excel/rightclick.htm
And XL2003 menus in general (not applicable to XL2007 or above):
http://support.microsoft.com/kb/830502

 

[theozz]

Thanks guide

I cannot think

intCount = intCount + 1

by this method I found the Bars have 2 commandbarbutton sometimes...

Your advice is best answer for me thanks

have a good day today and more (__)(__)