Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBarButton with toggle property (up & down)
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBarButton with toggle property (up & down)
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBarButton with toggle property (up & down)
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" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Does 2007 Office VBE Editor CommandBarButton .OnAction Property wo | Excel Programming | |||
CommandBarButton onClick | Excel Programming | |||
.Parameter property of CommandBarButton | Excel Programming | |||
Self deleting CommandBarButton possible? | Excel Programming | |||
CommandBarButton.FaceId=? | Excel Programming |