Objeto da Barra de Comandos (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 Descrição geral do friso do Office Fluent.

Exemplo

Utilize As Barras de Comandos (índice), em que o índice é o nome ou o número de índice de uma barra de comandos, para devolver um único objeto da Barra de Comandos . O exemplo seguinte percorre a coleção de barras de comandos para encontrar a barra de comando denominada "Formulários". Se encontrar esta barra de comandos, o exemplo torna-a visível e protege o respetivo estado de ancoragem. 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

Utilize um nome ou número de índice para especificar uma barra de menus ou barra de ferramentas na lista de barras de menus disponíveis e barras de ferramentas na aplicação de contentor. 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 com o nome "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) devolve 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. Partindo do princípio de que o terceiro controlo na barra de ferramentas com o nome Ferramentas Personalizadas é um controlo de pop-up, este exemplo adiciona o comando Guardar à 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 da Barra de Comandos
• 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.