Propriedade CommandBars.ActiveMenuBar (Office)

Obtém um objeto CommandBar que representa a barra de menus ativa no aplicativo contêiner. Somente leitura.

Observação

[!OBSERVAçãO] O uso de CommandBars em alguns aplicativos do Microsoft Office foi substituído pelo novo componente da faixa de opções da interface de usuário do Microsoft Office Fluent. Para obter mais informações, consulte Visão geral da faixa de opções Office Fluent.

Sintaxe

mais simples. ActiveMenuBar

expressão Uma variável que representa um objeto CommandBars .

Exemplo

Este exemplo adiciona um controle pop-up temporário chamado Custom ao final da barra de menus ativa e adiciona um controle chamado Import ao controle pop-up.

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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

  • Last updated on