Метод ShowPopup имеет необязательные параметры, задающие координаты вывода меню на экране.
При выполнении этой процедуры выведет на экран меню с двумя пунктами Формат и Редактирование. Каждому их пунктов соответствует свое подменю: при выборе пункта Формат раскрывается подменю из двух строк Цвет и Размер, причем при выборе строки Цвет раскрывается еще одно подменю, содержащее команды Красный, Синий и Зеленый, а для ввода или выбора размера можно воспользоваться полем со списком значений «8», «10» и «14»; при выборе пункта меню Редактирование раскрывается подменю, содержащее три строки: Удаление, Копирование и Вставка. С пунктами меню Красный, Синий, Зеленый, Размер, Удаление, Копирование и Вставка связаны макросы с именами «SetRed», «SetBlue», «SetGreen», «SetSize», «DeleteBlock», «CopyBlock» и «InsertBlock» соответственно. Эти макросы выполняются при активизации пункта меню или изменении значения соответствующего элемента управления.
В макросе, связанном с элементом управления, можно получить свойства, установленные для выбранного элемента управления, и воспользоваться ими для выполнения соответствующей операции. Например, макрос:
Public SubSetSize()
DimCharSizeAs Single
CharSize= Val(MenuObj.Controls(1).Controls(2).Text)
MsgBox "Выбран размер" & _
MenuObj.Controls(1).Controls(2).Text
Selection.Font.Size =CharSize
