ツールバーにアイコンとボタン名を表示する場合、Styleプロパティを使います。
Sub Sample45()
With Application.CommandBars.Add("オリジナル")
With .Controls.Add
.Caption = "マクロ1"
.OnAction = "macro1"
.FaceId = 59
'アイコンとボタン名を表示する
.Style = msoButtonIconAndCaption
End With
.Visible = True
End With
End Sub