Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check Existing Button
I'm using the following VBA code to create a button in Excel that runs a
macro. The code is in the Workbook_Open procedure. I use the .Delete method in the Workbook_Beforeclose procedure to remove the button when the workbook is closed. Dim oCb As CommandBar Dim oCtl As CommandBarButton Set oCb = Application.CommandBars("Worksheet Menu Bar") With oCb Set oCtl = .Controls.Add( _ Type:=msoControlButton, _ Temporary:=True) oCtl.Caption = "My Button." oCtl.OnAction = "My Macro" oCtl.FaceId = 270 oCtl.Style = msoButtonIconAndCaption End With Is there a way using VBA to see if the button already exists so as not to create a duplicate button? Thanks in advance.. Mike |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check Existing Button
Don't bother, just delete it regardless
On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("myButton").Delete On Error Goto 0 before this code -- HTH RP (remove nothere from the email address if mailing direct) "Mike" wrote in message ... I'm using the following VBA code to create a button in Excel that runs a macro. The code is in the Workbook_Open procedure. I use the .Delete method in the Workbook_Beforeclose procedure to remove the button when the workbook is closed. Dim oCb As CommandBar Dim oCtl As CommandBarButton Set oCb = Application.CommandBars("Worksheet Menu Bar") With oCb Set oCtl = .Controls.Add( _ Type:=msoControlButton, _ Temporary:=True) oCtl.Caption = "My Button." oCtl.OnAction = "My Macro" oCtl.FaceId = 270 oCtl.Style = msoButtonIconAndCaption End With Is there a way using VBA to see if the button already exists so as not to create a duplicate button? Thanks in advance.. Mike |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Check for existing sheet in book | Excel Programming | |||
Adding Code to an Existing Command Button with VBA | Excel Programming | |||
How to correct this formula and check if more issues are existing? | Excel Programming | |||
Macro Help - check existing tabs | Excel Programming | |||
Creating a Button to add to existing values while subtracting range | Excel Programming |