how to add a togglebutton to commandbar

[Ko Vijn]

I have a primitive knowledge how to build a new commandbar and how to add
controls.
Usually I create simple controlbutons with statements as below. They run the
specified macro which works fine.

I would however also be able to add controlbuttons which behave like
togglebuttons like the send Email or Lock Cell button. Both are 'type 1'
buttons, so which property controls their toggling behaviour?

And, by the way, what is the difference between Style=0 and Style=0. Both
seem to set the control to Icon without text?

Thanks for any hints,
Ko

Example code:
'Create new Commandbar with name varCBR
Application.CommandBars.Add _
Name:=varCBR, Position:=msoBarTop, _
MenuBar:=False, temporary:=True
Application.CommandBars(varCBR).Visible = True

'Add controls
for i= 1 to varNumberControls
With Application.CommandBars(varCBR)
.Controls.Add Type:=1, ID:=2950, temporary:=True
next

'Install their properties from their respective arrays
for i= 1 to varNumberControls
With Application.CommandBars(varCBR).controls(i)
.OnAction = arrBtn_Macr(i) 'macro
.Caption = arrBtn_Capt(i) 'caption
.BeginGroup = arrBtn_BgGp(i) 'true/false
.Style = arrBtn_Styl(i) '0,1, 2 or 3
.TooltipText = arrBtn_TipT(i) '
.FaceID = arrBtn_Face(i) 'icon number
End With
Next
etcetera

 

[Tom Ogilvy]

There is no specific "type" that exhibits this behavior. You have to
control it with your onaction macro. The property of the button is the
STATE property.


another approach is to put a check by the menu item:

http://support.microsoft.com/default.aspx?scid=kb;en-us;213735&Product=xlw
XL2000: How to Place a Check Mark Next to a Custom Menu Item

 

[Ko Vijn]

Thanks guys

In the mean time I found exactly what I needed on togglebuttons on
http://www.erlandsendata.no/downloads/commandbartools.zip

but I still would like to know the difference between Style=0 and Style=1
(and not between Style=0 and Style=0 as I wrote in error) for
controlbuttons.

 

[Tom Ogilvy]

Look at the help on Style. The constants are self defining.