Добавление собственной панели инструментов.

[Чудовище под кроватью]

Интересует пример создания собственной панели инструментов (в Excel 2002) с помощью VBA.
Как она создается, как добавляются кнопки, как к ним привязываются процедуры и как создаются значки?

[GSerg]

А был ли ты в поиске?
Судя по всему не был, иначе не пропустил бы статьи об этом.

[inq]

что-то типа

Код: Выделить всё

Sub AddEpiComBar()
   
    Dim msBtn As CommandBarButton
    Dim tcCB As CommandBarComboBox
   
    On Error Resume Next
    Application.CommandBars("testBar").Delete
    On Error GoTo 0
    Application.CommandBars.Add(Name:="testBar").Visible = True
    Set msBtn = Application.CommandBars("testBar").Controls.Add(Type:=msoControlButton)
    msBtn.FaceId = 366
    msBtn.Caption = "testSub"
    msBtn.OnAction = "testSub"
    Set tcCB = Application.CommandBars("testBar").Controls.Add(Type:=msoControlComboBox)
    tcCB.Caption = "Caption"
    tcCB.Width = 150

End Sub


[Чудовище под кроватью]

что-то типа

Во! Спасибо! А как тут рисунок собственный вместо одного из стандартных сделать? FaceId = 0, а дальше?

[Чудовище под кроватью]

А все. Не надо рисунка. Тут стандартных вагон, оказывается. Скачал у Уокенбаха надстройку - удобная весчь! Рекомендую! - Показывает все значки. При наведении курсора на значок выводит его номер. Я некоторых и не видел.