Панель инструментов

Попробуйте воспользоваться нижеприведённым кодом :

Sub CreateNewLeftBar()

With Application.CommandBars.Add("NewLefBar", , False, True)
.Visible = True
.Position = msoBarLeft
With .Controls
With .Add(msoControlButton)
.Style = msoButtonWrapCaption
.Caption = "Кнопка"
.OnAction = "Macros1"
End With
With .Add(msoControlButton)
.Style = msoButtonIconAndWrapCaption
.Caption = "Макрос"
.FaceId = 92
.OnAction = "Macros2"
End With
End With
End With

End Sub

Обратите внимание на то, что эта возможность реализована начиная с MS Excel 2000 и выше. И второе, чем больше символов Вы используете в свойстве Caption, тем меньше у Вас остаётся рабочего/свободного пространства.

В любом случае Вам придётся просмотреть значки для определения наиболее приемлемых. Для этого можно создать панель инструментов, а после визуального знакомства, выбрать нужные.

Sub CreateIconFaceId()

With Application.CommandBars.Add("FaceId", , False, True)
.Visible = True

With .Controls

For iFace = 1 To 3518

' в MS Excel 97 существует - 3518 ID, но существуют и "пустышки"
'
' Для визуального просмотра лучше создать несколько панелей
' инструментов, т.е. разбить этот цикл на несколько частей
'
' Обратите внимание на то, что каждая панель инструментов должна
' иметь своё уникальное имя.

With .Add(msoControlButton)
.Style = msoButtonIconAndCaption
.Caption = iFace
.FaceId = iFace
End With

Next

End With
End With

End Sub

P.S. А что означает термин встречный вопрос ? Я вроде Вам вопросов пока не задавал ?

и ещё вопрос:
как панель созданную с помощью макроса сохранить в книге, чтобы при её открытии панель сама открывалась, а не после запуска макроса?
P.S. попытка вложить панель в книгу была неудачной

По вашему мнению это возможно сделать, чтобы я знал?

Здравствуйте, corvin

Дело в том, что Вы задали четыре вопроса и я полагал, что пока я не вспомню/найду решения Вашей задачи опубликовывать часть ответов не нужно. Но если Вы настаиваете на блиц ответе, то пожалуйста :

Cозданную нестандартную панель управления можно вложить в рабочую книгу, но для этого при создании панели .Add необходимо Temporary указать как False, т.е.

With Application.CommandBars.Add("NewLefBar", , False, False)

Примечание :
Temporary используется для того чтобы при закрытии приложения, нестандартная панель управления была удалена автоматически, без дополнительных программных действий, поэтому если Вы установили Temporary как False, то Вам придётся удалять панель программно, например при закрытии рабочей книги.

Если кому то понадобится размеры иконки в панелях можно изменить так:
Application.CommandBars.LargeButtons = true