Método CommandBarControls.Add (Office)

Artigo
04/07/2023

Cria um novo objeto CommandBarControl e o adiciona à coleção de controles na barra de comandos especificada.

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.

Sintaxe

expressão. Adicionar (Tipo, ID, Parâmetro, Antes, Temporário)

expressão Obrigatório. Uma variável que representa um objeto CommandBarControls.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Type	Opcional	Variant	O tipo de controle a ser adicionado à barra de comandos especificada. Pode ser uma das seguintes constantes MsoControl: msoControlButton, msoControlEdit, msoControlDropdown, msoControlComboBox ou msoControlPopup.
Id	Opcional	Variant	Um número inteiro que especifica um controle interno. Se o valor desse argumento for 1 ou se esse argumento for omitido, um controle personalizado vazio do tipo especificado será adicionado à barra de comandos.
Parameter	Opcional	Variant	Para controles internos, esse argumento é usado pelo aplicativo contêiner para executar o comando. Para controles personalizados, você pode usar esse argumento para enviar informações para os procedimentos do Visual Basic, ou você pode usá-lo para armazenar informações sobre o controle (semelhante ao segundo valor da propriedade Tag ).
Before	Opcional	Variant	Um número que indica a posição do novo controle na barra de comandos. O novo controle será inserido antes do controle nessa posição. Se esse argumento for omitido, o controle será adicionado no final da barra de comandos especificada.
Temporary	Opcional	Variant	True para tornar o novo controle temporário. Os controles são excluídos automaticamente quando o aplicativo de contêiner é fechado. O valor padrão é False.

Exemplo

Este exemplo cria uma barra de ferramentas de edição personalizada que contém botões (controles) para cortar, copiar e colar.

Dim customBar As CommandBar 
Dim newButton As CommandBarButton 
Set customBar = CommandBars.Add("Custom") 
Set newButton = customBar.Controls _ 
    .Add(msoControlButton, CommandBars("Edit") _ 
    .Controls("Cut").Id) 
Set newButton = customBar.Controls _ 
    .Add(msoControlButton, CommandBars("Edit") _ 
    .Controls("Copy").Id) 
Set newButton = customBar.Controls _ 
    .Add(msoControlButton, CommandBars("Edit") _ 
    .Controls("Paste").Id) 
customBar.Visible = True

Confira também

Membros do objeto CommandBarControls

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.

Compartilhar via