CommandBarButton with toggle property (up & down)

[Jean-Pierre Bidon]

Hi,
I create a new CommandBar, I had a button, more or less like this :

With CommandBars.Add(Name:=stCBarName)
With .Controls.Add(Type:=msoControlButton, _
temporary:=True)
etc.

I would like that the button be a "toggle button" that offers 2 possible
states "up" and "down".
Is that possible .. and how.
Thank you in advance.

Jean-Pierre Bidon
Interstat
5 place de la République
75003 Paris
Tél: 01 45 49 19 17

 

[Guest]

Here is one method that is supported by commandbars:

http://support.microsoft.com/?id=161926
XL97: How to Place a Checkmark Next to a Menu Item

http://support.microsoft.com/?id=213735
XL2000: How to Place a Check Mark Next to a Custom Menu Item

http://support.microsoft.com/default.aspx?scid=kb;en-us;111563&Product=xlw
Sample Macro to Add Check Marks to Custom Menu Commands (xl5/95)

 

[Chip Pearson]

Try something like the following code:

Sub AAA()
Dim CmdBar As Office.CommandBar
Dim Ctrl As Office.CommandBarButton
On Error Resume Next
Application.CommandBars("Chip").Delete
On Error GoTo 0
Set CmdBar = Application.CommandBars.Add(Name:="Chip", temporary:=True)
Set Ctrl = CmdBar.Controls.Add(Type:=msoControlButton)
Ctrl.Caption = "click me"
Ctrl.State = msoButtonUp
Ctrl.OnAction = "'" & ThisWorkbook.Name & "'!TheProc"
CmdBar.Visible = True

End Sub

Sub TheProc()
With Application.CommandBars.ActionControl
If .State = msoButtonDown Then
.State = msoButtonUp
Else
.State = msoButtonDown
End If
End With
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)