try it:

Sub CreateMenu()
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)
Set menu3 = myCBtn2.CommandBar.Controls _
..Add(Type:=msoControlButton, ID:=1)
menu3.Caption = "Descriptive stat"
menu3.OnAction = "Your action"
menu3.FaceId = 17
myCB.Visible = True
End Sub

"Fan924" a écrit dans le message de news:
...
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