Основы VBA. Часть 10

Создание подменю.

Каждое создаваемое меню может содержать до пяти уровней подменю, каждое из которых может иметь собственные команды. Подменю рекомендуется, если строка меню заполнена или необходимо акцентировать связь одного элемента управления меню с другими. Если в строке меню достаточно места, лучше создать дополнительный заголовок меню. Ограничение количества подменю является хорошим стилем программирования.
Для создания подменю следует:
1. Создать команду, которая будет заголовком меню.
2. Создать пункты подменю, сместив их на один уровень вправо.
3. Для каждого пункта подменю можно задать свое поле Name, а можно использовать массив элементов управления меню. При создании массива элементов управления меню в поле Name используется одно и то же имя, а в поле Index задается номер элемента подменю, начиная со значения 0.
Когда пользователь выбирает элемент управления меню, происходит событие Click. Для каждого элемента управления меню в программу необходимо поместить процедуру обработки события Click. При использовании массива элементов управления меню Visual Basic передает значение свойства Index элемента меню соответствующей процедуре обработки события в качетсве дополнительного параметра. Процедура обработки события может содержать код проверки значения свойства Index, чтобы определить, какой элемент управления следует использовать.

Использование строк меню в VBA.

В VBA при работе со строками меню и элементами управления строк меню используются два семейства и два объекта:

• Семейство CommandBars
• Объект CommandBar
• Семейство CommandBarControls
• Объект CommandBarControl

В семействе CommandBars хранятся все строки меню текущего приложения. Данный объект используется для создания строки меню и для работы с одной, несколькими или всеми существующими строками меню, включая пользовательские строки. Следующая процедура печатает имя каждой строки меню текущего приложения в окне отладки:
Sub pr()
For Each cBar In CommandBars
Debug.Print cBar.Name
Next
End Sub