Поделиться через

Свойство CommandBars.ActiveMenuBar (Office)

  • Статья

Возвращает объект CommandBar , представляющий активную строку меню в приложении-контейнере. Только для чтения.

Примечание.

Использование CommandBars в некоторых приложениях Microsoft Office было заменено новым компонентом ленты пользовательского интерфейса Microsoft Office Fluent. Дополнительные сведения см. в статье Обзор ленты Office Fluent.

Синтаксис

expression. ActiveMenuBar

Выражение Переменная, представляющая объект CommandBars .

Пример

В этом примере в конец активной строки меню добавляется временный всплывющий элемент управления с именем Custom , а в элемент управления всплывающего окна добавляется элемент управления с именем Import .

Set myMenuBar = CommandBars.ActiveMenuBar 
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True) 
newMenu.Caption = "Custom" 
Set ctrl1 = newMenu.CommandBar.Controls _ 
    .Add(Type:=msoControlButton, Id:=1) 
With ctrl1 
    .Caption = "Import" 
    .TooltipText = "Import" 
    .Style = msoButtonCaption 
End With

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.