Рассмотрим элементы управления, которые содержатся в строках меню. Подобно семейству CommandBars и объекту CommandBar элементы управления также имеют собственное семейство и объект. Чтобы использовать элементы управления строк меню, необходимо работать с семейством CommandBarControls и объектом CommandBarControl.

После создания или идентификации требуемой строки меню можно изменить принадлежащие ей элементы. К этим элементам обращаются с помощью свойства Controls семейства CommandBarControls. В свойстве Controls хранится ссылка на все элементы управления одного меню. Кроме того, в семействе CommandBarControls содержатся все элементы управления, используемые в строках меню основного приложения.

Например, программа 4 печатает заголовок всех элементов управления принадлежащей Excel строки меню Standard в окне отладки. При этом просматривается каждый элемент в семействе. На рис. 1 показано содержимое окна отладки. Чтобы отобразить это окно в редакторе VBA, выберите команду Вид\0кно отладки (View\Immediate Window) или нажмите комбинацию клавиш <Ctrl>+<G>.

Программа 4. Вывод заголовков элементов управления.

Public Sub PrintControlCaptions
     For Each MyControl In CommandBars("Standard").Controls
          Debug.Print MyControl.Caption
     Next MyControl
End Sub

Рис. 1. Вывод заголовков элементов управления строки меню

К элементам управления строки меню можно обратиться, используя их индексы. Каждая команда меню имеет порядковый номер в семействе элементов управления. Например, программа 5 выводит индекс и заголовок каждого элемента управления принадлежащей Excel строки меню Standard.

Программа 5. Вывод заголовков и индексов элементов управления

Public Sub PrintControlCaptionsAndIndex()
     Dim MyCommandBar As CommandBar
     Dim MyControl As CommandBarControl
     Set MyCommandBar = CommandBars("Standard")
     For Each MyControl In MyCommandBar.Controls
          Debug.Print MyControl.Index, " - ", MyControl.Caption
     Next MyControl
End Sub

В результате выполнения данной процедуры в окне отладки появится следующий текст:

! Примечание

Символ & указывает на клавишу, назначенную элементу управления строк меню.

Для комментария : kadan@grsu.grodno.by