Макросом создать кнопку и посадить на нее другой макрос 2

[as-is]

Нашел прошлогоднюю тему (www.cyberforum.ru от Seqular)
"Макросом создать кнопку и посадить на нее другой макрос"
http://www.cyberforum.ru/vba/thread26728.html.
Показалось интересным продолжить ее в направлении, -
как создать красивую кнопку, то есть как посадить на нее еще и красивую пиктограмму или файлик. Да еще сделать ее "большой" и может даже в стиле последней версии Эксель.
Изыск в сторону .Style = msoButtonIcon
[SIZE="1"]-----------------------------------------------------------------------
'Перед закрытием книги удаляем кнопку с панели инструментов
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars(1).Controls .Item(Application.CommandBars(1).Co ntrols.Count).Delete
End Sub
'При открытии книги создаем кнопку на панели инструментов и ассоциируем с ней наш макрос
Private Sub Workbook_Open()
With Application.CommandBars(1).Controls .Add(Type:=msoControlButton)
.FaceId = 2083
.OnAction = "myMacro"
.Caption = "Выполнить макрос"
.TooltipText = "Выполнить макрос"
.Style = msoButtonIcon
End With
End Sub
------------------------------------------------------------------------
Спасибо