Вопрос есть в коллекциях
Данная процедура:Public Sub AddPanel(PanelName As String) 'Добавляет и делает видимой панель с именем Panelname 'в коллекцию Commandbars 'Панель расположена вверху документа, 'не заменяет главное меню и не является временной If Not ExistCommandBar(PanelName) Then Call CommandBars.Add(name:=PanelName, Position:=msoBarTop, _ MenuBar:=False, Temporary:=False) End If CommandBars(PanelName).Enabled = True CommandBars(PanelName).Visible = TrueEnd Subпозволяет в любом из приложений Office 2000 добавить в коллекцию CommandBars:
- собственную инструментальную панель заданную индексом
- собственную инструментальную панель с заданным индексом
- собственную инструментальную панель с заданным именем
- собственную инструментальную панель заданную именем