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.
Move o CommandBarControl de especificado para uma barra de comandos existente.
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. Mover (Barra, Antes)
expressão Obrigatório. Uma variável que representa um objeto CommandBarControl.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Bar | Opcional | Variant | Um objeto Command que representa a barra de comandos de destino para o controle. Se esse argumento for omitido, o controle é movido para o final da barra de comandos onde o controle reside no momento. |
| Before | Opcional | Variant | Um número que indica a posição do controle. O controle é inserido antes do controle que ocupa essa posição no momento. Se esse argumento for omitido, o controle será inserido na mesma barra de comandos. |
Exemplo
Este exemplo move o primeiro controlo da caixa de combinação na barra de comandos denominada Personalizar para a posição antes do sétimo controlo nessa barra de comandos. O exemplo define a etiqueta como Caixa de seleção e atribui ao controlo uma prioridade baixa para que seja provavelmente removida da barra de comandos se todos os controlos não caberem numa linha.
Set allcontrols = CommandBars("Custom").Controls
For Each ctrl In allControls
If ctrl.Type = msoControlComboBox Then
With ctrl
.Move Before:=7
.Tag = "Selection box"
.Priority = 5
End With
Exit For
End If
Next
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.