Macro code to create a toolbar?
I know this is possible and easily findable; don't bother googling it as I do
not wish to take that much time from you guys (for such simple question). Thanks in advance. |
Macro code to create a toolbar?
Try some code similar to the following:
Sub AAA() Dim CBar As Office.CommandBar Dim C1 As Office.CommandBarButton Dim C2 As Office.CommandBarButton Dim C3 As Office.CommandBarButton On Error Resume Next Application.CommandBars("MyName").Delete On Error GoTo 0 Set CBar = Application.CommandBars.Add( _ Name:="MyName", temporary:=True) Set C1 = CBar.Controls.Add(Type:=msoControlButton, _ temporary:=True) With C1 .Caption = "One" .OnAction = "'" & ThisWorkbook.Name & "!ProcedureOne" .Style = msoButtonCaption End With Set C2 = CBar.Controls.Add(Type:=msoControlButton, _ temporary:=True) With C2 .Caption = "Two" .OnAction = "'" & ThisWorkbook.Name & "!ProcedureTwo" .Style = msoButtonCaption End With Set C3 = CBar.Controls.Add(Type:=msoControlButton, _ temporary:=True) With C3 .Caption = "Three" .OnAction = "'" & ThisWorkbook.Name & "!ProcedureThree" .Style = msoButtonCaption End With CBar.Visible = True End Sub Cordially, Chip Pearson Microsoft Most Valuable Professional Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Thu, 23 Oct 2008 15:19:01 -0700, Do what I can, but I''m only one man. om wrote: I know this is possible and easily findable; don't bother googling it as I do not wish to take that much time from you guys (for such simple question). Thanks in advance. |
Macro code to create a toolbar?
I love your MVP website. Thank you Mr. Pearson.
"Chip Pearson" wrote: Try some code similar to the following: Sub AAA() Dim CBar As Office.CommandBar Dim C1 As Office.CommandBarButton Dim C2 As Office.CommandBarButton Dim C3 As Office.CommandBarButton On Error Resume Next Application.CommandBars("MyName").Delete On Error GoTo 0 Set CBar = Application.CommandBars.Add( _ Name:="MyName", temporary:=True) Set C1 = CBar.Controls.Add(Type:=msoControlButton, _ temporary:=True) With C1 .Caption = "One" .OnAction = "'" & ThisWorkbook.Name & "!ProcedureOne" .Style = msoButtonCaption End With Set C2 = CBar.Controls.Add(Type:=msoControlButton, _ temporary:=True) With C2 .Caption = "Two" .OnAction = "'" & ThisWorkbook.Name & "!ProcedureTwo" .Style = msoButtonCaption End With Set C3 = CBar.Controls.Add(Type:=msoControlButton, _ temporary:=True) With C3 .Caption = "Three" .OnAction = "'" & ThisWorkbook.Name & "!ProcedureThree" .Style = msoButtonCaption End With CBar.Visible = True End Sub Cordially, Chip Pearson Microsoft Most Valuable Professional Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Thu, 23 Oct 2008 15:19:01 -0700, Do what I can, but I''m only one man. om wrote: I know this is possible and easily findable; don't bother googling it as I do not wish to take that much time from you guys (for such simple question). Thanks in advance. |
Macro code to create a toolbar?
If you google for yourself you don't take any time from "us guys".
Gord Dibben MS Excel MVP On Thu, 23 Oct 2008 15:19:01 -0700, Do what I can, but I''m only one man. om wrote: I know this is possible and easily findable; don't bother googling it as I do not wish to take that much time from you guys (for such simple question). Thanks in advance. |
All times are GMT +1. The time now is 04:46 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com