ツールバーに自作のアイコンを表示させることが出来ます。
例えばセルに「図1」という名前の画像があるとして、それをコピーして、ツールバーに貼り付けします。
Sub Sample44()
'図1を選択し、コピー
ActiveSheet.Shapes("図 1").Select
Selection.Copy
With Application.CommandBars.Add("オリジナル")
With .Controls.Add
.Caption = "マクロ1"
.OnAction = "macro1"
'コピーした画像を貼り付け
.PasteFace
End With
.Visible = True
End With
End Sub