Одной из важнейших является возможность программного создания меню с помощью строк меню. Созданное меню используется либо в главном меню основного приложения, либо в качестве контекстного меню.

Объект CommandBarPopup используется при программировании меню. В меню можно добавить различные элементы управления, тем самым его задавая команды и подменю.

При программировании меню необходимо учитывать, что в конечном счете требуется задать действия, которые выполняются при выборе команды. Для указания макроса, запускаемого при выборе некоторого элемента управления, используется свойство OnAction. В случае меню этим элементом обычно является объект CommandBarButton.

В программе 8 показано создание меню с помощью объекта CommandBarPopup.

Программа 8 Создание меню.

Public Sub CreateMenu()

Dim MyMenu As CommandBar
Dim cbFormatMenu As CommandBarPopup
Dim cbFormatColorMenu As CommandBarPopup
Dim cbFormatPrimaryMenu As CommandBarPopup
Dim cbFormatPastelMenu As CommandBarPopup
Dim cbFormatSizeMenu As CommandBarPopup
Dim cbFormatStyleMenu As CommandBarPopup
Dim cbOtherMenu As CommandBarPopup
Dim cbRed As CommandBarButton
Dim cbBlue As CommandBarButton
Dim cbGreen As CommandBarButton
'Создание строки главного меню
Set MyMenu = CommandBars.Add(Name:="Demo Menu2", MenuBar:=True, _
Temporary:=True, Position:=msoBarTop)
Set cbFormatMenu = MyMenu.Controls.Add _
(Type:=msoControlPopup)
cbFormatMenu.Caption = "Формат"
Set cbOtherMenu = MyMenu.Controls.Add(Type:=msoControlPopup)
cbOtherMenu.Caption = "Разное"
'Задание команд меню Формат
Set cbFormatColorMenu = cbFormatMenu.Controls.Add _
(Type:=msoControlPopup)
cbFormatColorMenu.Caption = "Цвет"
Set cbFormatSizeMenu = cbFormatMenu.Controls.Add _
(Type:=msoControlPopup)
cbFormatSizeMenu.Caption = "Размер"
Set cbFormatStyleMenu = cbFormatMenu.Controls.Add _
(Type:=msoControlPopup)
cbFormatStyleMenu.Caption = "Стиль"
'Задание команд меню Цвет
Set cbFormatPrimaryMenu = cbFormatColorMenu.Controls.Add _
(Type:=msoControlPopup)
cbFormatPrimaryMenu.Caption = "Фон"
Set cbFormatPastelMenu = cbFormatColorMenu.Controls. Add _
(Type:=msoControlPopup)
cbFormatPastelMenu.Caption = "Черный"
'Задание команд меню Фон
Set cbRed = cbFormatPrimaryMenu.Controls.Add _
(Type:=msoControlButton)
cbRed.Style = msoButtonCaption
cbRed.Caption = "Красный"
Set cbBlue = cbFormatPrimaryMenu.Controls.Add _
(Type:=msoControlButton)
cbBlue.Style = msoButtonCaption
cbBlue.Caption = "Синий"
Set cbGreen = CbFormatPrimaryMenu.Controls.Add _
(Type:=msoControlButton)
cbGreen.Style = msoButtonCaption
cbGreen.Caption = "Зеленый"
'Задание команд меню Размер
'Задание команд меню Стиль
MyMenu.Visible = True

End Sub

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