Objeto CommandBar (Office)

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

Exemplo

Use CommandBars (índice), onde índice é 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 comandos para localizar a barra de comandos chamada "Formulários". Se ele encontrar essa barra de comandos, o exemplo a 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 menus 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 denominado "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 ou submenus personalizados 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 chamado 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

• Membros do objeto CommandBar
• Referência do modelo de objeto

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.