Ler em inglês

Compartilhar via


Objeto CommandBar (Office)

Representa uma barra de comando no aplicativo contêiner. O objeto CommandBar é um membro da coleção CommandBars.

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 fluente do Office.

Exemplo

Use CommandBars (index), em que index é o nome ou o número de índice de uma barra de comandos, para retornar um único objeto CommandBar . O exemplo a seguir percorre a coleção de barras de comando para encontrar a barra de comandos chamada "Forms". Se ele encontrar essa barra de comandos, o exemplo o tornará visível e protegerá seu estado de encaixe. Neste exemplo, a variável cb representa um objeto CommandBar.

foundFlag = False  
For Each cb In CommandBars 
    If cb.Name = "Forms" Then 
        cb.Protection = msoBarNoChangeDock 
        cb.Visible = True  
        foundFlag = True  
    End If 
Next cb 
If Not foundFlag Then 
    MsgBox "The collection does not contain a Forms command bar." 
End If

Use um nome ou número de índice para especificar uma barra de menus ou barra de ferramentas na lista de barras de menu e barras de ferramentas disponíveis no aplicativo de contêiner. No entanto, você deve usar um nome para especificar um menu, menu de atalho ou submenu (todos os quais são representados por objetos CommandBar ). Este exemplo adiciona um novo item de menu ao final do menu Ferramentas. Quando escolhido, o novo item de menu executa o procedimento chamado "qtrReport".

Set newItem = CommandBars("Tools").Controls.Add(Type:=msoControlButton) 
With newItem 
    .BeginGroup = True  
    .Caption = "Make Report" 
    .FaceID = 0 
    .OnAction = "qtrReport" 
End With

Se dois ou mais menus personalizados ou submenus tiverem o mesmo nome, CommandBars(index) retornará o primeiro. Para garantir que você retorne o menu ou submenu correto, localize o controle pop-up que exibe o menu. Em seguida, aplique a propriedade CommandBar ao controle pop-up para retornar a barra de comandos que representa o menu. Supondo que o terceiro controle na barra de ferramentas chamada Ferramentas Personalizadas seja um controle pop-up, este exemplo adiciona o comando Salvar à parte inferior desse menu.

Set viewMenu = CommandBars("Custom Tools").Controls(3) 
viewMenu.Controls.Add ID:=3    'ID of Save command is 3

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.