Разработка контекстного меню

Методы создания строк меню и включения в них элементов управления можно применить к разработке контекстных меню. Для построения контекстного меню необходимо создать контекстное меню, добавить в него элементы управления и задать момент вывода меню.

Для создания контекстного меню используется метод Add семейства CommandBars. В качестве значения параметра Position при вызове этого метода нужно указать константу msoBarPopup. Метод возвращает ссылку на объект CommandBar. В результате выполнения кода этого метода создается пустая строка меню.

Далее в контекстное меню можно добавить элементы управления любого типа (поле для ввода данных, раскрывающийся список, кнопку, запускающую процесс или задачу, подменю). Элементы управления также добавляются с помощью метода Add, но добавление объектов, представляющих элементы управления осуществляется для семейства Controls элементов управления созданного объекта CommandBar. При вызове метода указывается тип создаваемого и включаемого в меню элемента управления.

Для включенных в контекстное меню элементов управления задаются свойства и действия (макросы), которые должны быть выполнены при активизации элементов.

Таким образом, процедура создания контекстного меню может выглядеть следующим образом:

Public Function СозданиеКонтекстногоМеню() As CommandBar

' Описание объекта для контекстного меню:

DimMyPopUpAs CommandBar

' Описание элементов пункта меню "Формат":

DimcbFormatMenuAs CommandBarPopup

' Описание элементов подменю "Цвет" меню "Формат":

DimcbFormatColorMenuAs CommandBarPopup

DimcbRedAs CommandBarButton

DimcbBlueAs CommandBarButton

DimcbGreenAs CommandBarButton

' Описание пункта "Размер" меню "Формат":

DimcbFormatSizeMenuAs CommandBarComboBox

' Описание элементов пункта меню "Редактирование":

DimcbEditMenuAs CommandBarPopup

DimcbDeleteAs CommandBarButton

DimcbCopyAs CommandBarButton

DimcbInsertAs CommandBarButton

SetMyPopUp= CommandBars.Add("ShortcutMenu", _

Position:=msoBarPopup)

' Создание объектов - элементов управления:

WithMyPopUp.Controls

SetcbFormatMenu= .Add(Type:=msoControlPopup)

cbFormatMenu.Caption = "Формат"

SetcbFormatColorMenu= _
cbFormatMenu.Controls.Add(Type:=msoControlPopup)

cbFormatColorMenu.Caption = "Цвет"

SetcbRed= _
cbFormatColorMenu.Controls.Add _ (Type:=msoControlButton)

cbRed.Style = msoButtonCaption

cbRed.Caption = "Красный"

cbRed.OnAction = "SetRed"

SetcbBlue= _

cbFormatColorMenu.Controls.Add _

(Type:=msoControlButton)

cbBlue.Style = msoButtonCaption

cbBlue.Caption = "Синий"

cbBlue.OnAction = "SetBlue"

SetcbGreen= _

cbFormatColorMenu.Controls.Add _

(Type:=msoControlButton)

cbGreen.Style = msoButtonCaption

cbGreen.Caption = "Зеленый"

cbGreen.OnAction = "SetGreen"

SetcbFormatSizeMenu= _

cbFormatMenu.Controls.Add _

(Type:=msoControlComboBox)

cbFormatSizeMenu.Caption = "Размер"

cbFormatSizeMenu.AddItem "8",1

cbFormatSizeMenu.AddItem "10",2

cbFormatSizeMenu.AddItem "14",3

cbFormatSizeMenu.ListIndex =1

cbFormatSizeMenu.OnAction = "SetSize"

SetcbEditMenu= .Add(Type:=msoControlPopup)

cbEditMenu.Caption = "Редактирование"

SetcbDelete= _

cbEditMenu.Controls.Add(Type:=msoControlButton)

cbDelete.Style = msoButtonCaption

cbDelete.Caption = "Удаление"

cbDelete.OnAction = "DeleteBlock"

SetcbCopy= _

cbEditMenu.Controls.Add(Type:=msoControlButton)

cbCopy.Style = msoButtonCaption

cbCopy.Caption = "Копирование"

cbCopy.OnAction = "CopyBlock"

SetcbInsert= _

cbEditMenu.Controls.Add(Type:=msoControlButton)

cbInsert.Style = msoButtonCaption

cbInsert.Caption = "Вставка"

cbInsert.OnAction = "InsertBlock"