Основы офисного программирования и язык VBA


Пример построения документа с собственным меню - часть 2


Затем было сформировано головное меню, содержащее всего один пункт, с двумя подменю и командами. Обратите внимание, перед добавлением нового пункта, обычно делается проверка, а не был ли он уже добавлен. Подобная проверка позволяет избежать ошибок, возникающих при попытках добавить уже существующий пункт или удалить несуществующий. Чтобы наш пример был законченным, приведем процедуры, вызываемые в ответ на выбор команд меню Накладная и Счет:

Public Sub Invoice() MsgBox ("Накладная!") End Sub

Public Sub Account() MsgBox ("Счет!") End Sub

Вот как выглядит документ по завершении работы процедуры CreateCustomMenu:

Документ, имеющий собственное меню

Рис. 11.4.  Документ, имеющий собственное меню

В заключение, приведем процедуру, восстанавливающую стандартное окружение:

Public Sub ResetMainMenu() Dim CstmBar As CommandBar 'Включаем все панели For Each CstmBar In CommandBars CstmBar.Enabled = True Next CstmBar

Set CstmBar = CommandBars.Item("Menu Bar") CstmBar.Visible = True End Sub




Начало  Назад  Вперед



Книжный магазин