Método CommandBarControl.Move (Office)
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 fluente do Office.
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 controle de caixa de combinação na barra de comandos chamada Custom para a posição antes do sétimo controle na barra de comandos. O exemplo define a marca como caixa Seleção e atribui ao controle uma prioridade baixa para que ele provavelmente seja removido da barra de comandos se todos os controles não se encaixarem 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.