Control Add Ins

[davidhall80]

This add in works, but I can't see the icon on my Menu Bar. The only way that I know its there is because when I hold my mouse over that area of my toolbar, the name of the Macro pops up. Are there any commands to add icons and words. I'd like to see a button image and the name of the Macro on the toolbar. Thanks in advance.

Private Sub Workbook_AddinInstall()
    With Application.CommandBars("Standard").Controls.Add
        .Caption = "&David"
        .OnAction = "MRHALL"
    End With
End Sub
Sub MRHALL()
    Range("G23") = "David"
End Sub

 

[Zack Barresse]

Try changing the Style of it.

 

[davidhall80]

Thanks...it works now....

With Application.CommandBars("Standard").Controls.Add
        .FaceId = 3
        .Caption = "&David"
        .Style = msoButtonIconAndCaption
        .OnAction = "HyperionRemove"
End With