Коллекция CommandBarControls

Коллекция CommandBarControls предоставляет доступ ко всем элементам управления панелей команд. Чтобы получить доступ к коллекции CommandBarControls конкретного объекта CommandBar, необходимо использовать свойство Controls этого объекта.

Для добавления на панель команд нового элемента управления используют метод Add этой коллекции.

Пример создания панели инструментов с последующим добавлением на нее кнопки.

Sub Examp ( )

Dim MyBar As CommandBar

Dim MyButton As CommandBarButton

Set MyBar = CommandBars.Add ( )

Set MyButton = MyBar.Controls _

.Add(msoControlButton)

MyBar.Visible = True

B приведенном примере объявляются две переменные: МуВаr типа CommandBar и MyButton типа CommandBarButton. Затем им присваиваются ссылки на созданную панель инструментов и кнопку панели инструментов соответственно. Последняя инструкция в этой процедуре делает созданную панель инструментов видимой.

Чтобы сослаться на конкретный элемент управления панели команд, являющийся членом коллекции CommandBarControls, можно использовать следующую инструкцию:

Set myControl = CommandBars(l) .Controls(l)

Здесь для ссылки на конкретный элемент управления используется свойство Controls объекта CommandBar.

Свойства коллекции CommandBarControls

Коллекция CommandBarControls имеет следующие свойства:

• Application

• Count

• Item

• Parent

Перечисленные свойства уже были рассмотрены ранее в разделе «Свойства коллекции CommandBars»,

Методы коллекции CommandBarControls

Коллекция CommandBarControls имеет всего один метод Add.

Метод Add

Данный метод создает новый элемент управления и добавляет его в коллекцию элементов управления указанной панели команд. Его можно использовать для возвращения одного из следующих объектов: CommandBarButton, CommandBarComboBox или CommandBarPopup. Синтаксис метода Add дан ниже:

Expression.Add (Type, Id, Parameter, Before, Temporary)

Элементы синтаксиса метода Add представлены в табл. 5.10.

Таблица 5.10. Элементы синтаксиса метода Add

Элемент	Описание
Expression	Обязательный элемент. Выражение, которое возвращает объект CommandBarControls
Туре	Необязательный элемент типа Variant. Определяет тип элемента управления, который будет добавлен. Значение данного параметра может быть равно значению одной из следующих констант: msoControlButton, msoControlEdit, msoControlDropdown, msoControlComboBox или msoControl Popup
Id	Необязательный элемент, представляющий собой число типа Integer, которое определяет встроенный элемент управления. Если значение этого аргумента равно 1 или не задано, то будет добавлен пустой элемент управления
Parameter	Необязательный элемент. Для встроенных элементов управления этот аргумент используется приложением для выполнения команды. В случае пользовательских элементов управления этот аргумент предназначен для передачи информации процедурам или для хранения какой-нибудь специальной информации
Before	Необязательный элемент, являющийся числом, которое показывает позицию добавляемого элемента управления на панели команд. При этом добавляемый элемент управления будет установлен перед элементом управления, расположенным в позиции, определяемой этим аргументом. Если значение данного параметра не задано, то элемент управления устанавливается в конец панели команд
Temporary	Необязательный элемент. Определяет, является ли элемент управления временным (True) или постоянным (False). Временный элемент управления после закрытия приложения удаляется. По умолчанию значение этого элемента равно False