Command Bars?

[moswitch]

Hello, I'm trying to add a button on the Standard command bar in Excel, I am successful in doing so but when I try assigning a macro to the button the program fails to execute. Can any one please help?


Application.CommandBars("Standard").Controls.Add _
Type:=msoControlButton, ID:=2950, Before:=7

Set mybar = CommandBars("Standard")
Set myControl = mybar.Controls

With myControl
.FaceId = 19
.OnAction = "Import"
End With

 

[PHV]

Perhaps this ?
With Application.CommandBars("Standard").Controls.Add(Type:=msoControlButton, ID:=2950, Before:=7)
.FaceId = 19
.OnAction = "Import"
End With

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[moswitch]

Thanks....

 

[moswitch]

Okay, the script worked but can any tell me what was wrong with my original script? Also, I'd like to reference the button I've created, so that once the user finishes using the spreadshet I can delete the created button and not the whole command bar. That's why I was trying to set my variables.

Thanks in advance.

 

[PHV]

Set myControl = Application.CommandBars("Standard").Controls.Add(Type:=msoControlButton, ID:=2950, Before:=7)
With myControl
.FaceId = 19
.OnAction = "Import"
End With

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[moswitch]

Thanks PHV, I have another question for you. How can I view the FaceID of an Icon/button. I am trying to associate the Gear Icon to the button I've created but I don't know the FaceID?