Данный макрос:

Public Sub DelAll()	Dim i As Integer	Dim Panel As CommandBar	Dim Ctrl As CommandBarComboBox	For i = 1 To MultBuffer.Count		MultBuffer.Remove (1)	Next i	Set Panel = CommandBars("MultBufferPanel")	Set Ctrl = Panel.Controls("DropdownItem")	For i = 1 To Ctrl.ListCount		Ctrl.RemoveItem (1)	Next iEnd Sub

выполняет:

Для данного макроса

Public Sub InsertAll()	For Each Elem In MultBuffer		If Elem.ShapeRange.Count > 0 Then			Elem.ShapeRange(1).Duplicate		Else			Elem.Copy			Selection.PasteSpecial		End If	Next ElemEnd Sub

верно:

Данная процедура:

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:

Какое событие коллекции CommandBars возникает при любых изменениях командной панели - объекта CommandBar:

У метода FindControl объектов Commandbars и Commandbar ключом поиска является:

Тип объектов класса CommandbarComboBox задается:

Тип объектов класса CommandbarComboBox определяется:

Тип определяет, какие свойства и методы класса CommandbarComboBox:

Специальные элементы класса CommandBarCombobox, позволяют пользователю при работе с меню:

Основными свойствами объекта CommandBar являются:

Каждая панель (объект CommandBar) содержит: