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 |
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 |
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 |
All times are GMT +1. The time now is 01:18 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com