Here is a simple one button menu bar. How do I add a custom image to
replace the face ID? I can't find a good web reference for this.


Sub CreateMenr()
On Error Resume Next
Application.CommandBars("example").Delete
Set myCB = CommandBars.Add(Name:="example",
Position:=msoBarFloating)

' Add a button to this bar
Set myCBtn2 = myCB.Controls.Add(Type:=msoControlButton)
With myCBtn2
.FaceId = 17 ' <- Face Id 17 is a barchart icon
.Caption = "Descriptive stat"
End With
myCB.Visible = True
End Sub