End Sub
В данной процедуре создается новая панель меню с двумя пунктами, содержащая вложенные подменю (результат работы процедуры приведен на рис. 7, б).
Объекты CommandBarприменяются для управления меню и панелями инструментов во время выполнения приложения. Ниже приведен код процедуры, демонстрирующей некоторые приемы управления: запрещение, скрытие и удаление элементов управления, а также восстановление меню.
Sub Ctrls()
With Application.CommandBars("Menu Bar")
With .Controls("&Таблица")
.Enabled = False
.Visible = True
