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

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...63&Product=xlw
Sample Macro to Add Check Marks to Custom Menu Commands (xl5/95)

--
Regards,
Tom Ogilvy


"Jean-Pierre Bidon" wrote:

> 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
>
>
>

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)

"Jean-Pierre Bidon" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>