Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Obtém a identificação de um interno CommandBarControl. 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 Descrição geral do friso do Office Fluent.
Sintaxe
expressão. ID
expressão Obrigatório. Uma variável que representa um objeto CommandBarControl.
Comentários
Uma identificação do controle determina a ação interna para o controle. O valor da propriedade Id para todos os controles personalizados é 1.
Exemplo
Este exemplo altera a face do botão do primeiro controlo na barra de comandos denominada Custom2 se o valor do ID do botão for inferior a 25.
Set ctrl = CommandBars("Custom").Controls(1)
With ctrl
If .Id < 25 Then
.FaceId = 17
.Tag = "Changed control"
End If
End With
O exemplo seguinte altera a legenda de todos os controlos na barra de ferramentas com o nome Standard para o valor atual da propriedade ID desse controlo.
For Each ctl In CommandBars("Standard").Controls
ctl.Caption = CStr(ctl.Id)
Next ctl
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.