Try

 

Dim x as CommandBarControl

For each x in ToolBar.Controls

  if x.id <10 then x.visible = false

Next

Hi,

 

I'm trying to loop through the buttons on a command bar.

 

I have added a command bar using:

 

Dim ToolBar As CommandBar
Set ToolBar = CommandBars.Add("Standard", xtpBarTop)

 

I have added a load of buttons using (for example):

 

.Add xtpControlButton, 1, "Test"

 

I now need to do something like:

 

Dim x as CommandBarControl

For each x in commandbars("standard")

  if x.id <10 then x.visible = false

Next x

 

However, I can't see to find the syntax I need for declaring X and referencing the command bar I created called "Standard".

 

Any help would be much appreciated.