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 Visão geral da faixa de opções Office Fluent.
Sintaxe
mais simples. 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 controle de caixa de combinação na barra de comandos chamado Personalizado para a posição antes do sétimo controle nessa barra de comandos. O exemplo define a marca como Caixa de seleção e atribui ao controle uma baixa prioridade, de modo que ela provavelmente será removida da barra de comandos se todos os controles não couberem em uma 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.