Looping buttons on a command bar

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
PhilJeary Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 16 March 2004 Location: United Kingdom Status: Offline Points: 17	Post Options Post Reply Quote PhilJeary Report Post Thanks(0) Quote Reply Topic: Looping buttons on a command bar Posted: 30 August 2006 at 4:58am
	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.

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 30 August 2006 at 8:49am
	Try Dim x as CommandBarControl For each x in ToolBar.Controls if x.id <10 then x.visible = false Next
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS