Лекция: Создание меню

Теперь создадим меню Вставка знака, которое расположим в самом конце строки меню рабочего листа (после меню Справка) (рис. 12.25).

Рис. 12.25. Добавление меню Вставка знака

Листинг программы:

Sub ДобавлениеМеню()

Set myMenuBar = _

CommandBars(«Worksheet Menu bar»)

'1. Добавляем вложенное меню:

Set newMenu = myMenuBar.Controls.Add _

(Type := msoControlPopup, Temporary:=True)

'2. Задаем текст надписи:

newMenu.Caption = «Вставка знака»

'3. Во вложенное меню добавляем кнопку:

Set ctrl1 = newMenu.Controls _.Add(Type:=msoControlButton, ID:=1)

'4. На кнопке должна быть только надпись:

ctrl1.Style = msoButtonCaption

'5. Добавляем надпись:

ctrl1.Caption = «Плюс в кружочке»

'6. Создаем всплывающую подсказку:

ctrl1.TooltipText = _

«Вставка специального символа»

'7. При щелчке по кнопке выполняется процедура _

Символ:

ctrl1.OnAction = «Символ»