Compartilhar via

Selection.Align method (Visio) (Método Selection.Align [Visio])

Alinha duas ou mais formas selecionadas.

Sintaxe

expressão. Alinhar (AlignHorizontal, AlignVertical, GlueToGuide)

expressão Uma variável que representa um objeto De seleção .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
AlinharHorizontal Obrigatório VisHorizontalAlignTypes Alinha formas selecionadas ao longo de um eixo horizontal. Consulte Comentários para valores possíveis.
AlinharVertical Obrigatório VisVerticalAlignTypes Alinha formas selecionadas ao longo de um eixo vertical. Consulte Comentários para valores possíveis.
GlueToGuide Opcional Boolean Se For Verdadeiro, cria um guia e cola-lhe as formas selecionadas; se for Falso, não. O padrão é False.

Valor de retorno

Nada

Comentários

Os seguintes valores possíveis para AlignHorizontal são declarados em VisHorizontalSelectionTypes na biblioteca de tipos do Visio.

Constant Valor Descrição
visHorzAlignCenter 2 Alinha ao centro da forma primária selecionada.
visHorzAlignLeft 1 Alinha à esquerda da forma primária selecionada.
visHorzAlignNone 0 Não alinha horizontalmente.
visHorzAlignRight 3 Alinha à direita da forma primária selecionada.

Os seguintes valores possíveis para AlignVertical são declarados em VisVerticalSelectionTypes na biblioteca de tipos do Visio.

Constant Valor Descrição
visVertAlignBottom 3 Alinha à parte inferior da forma primária selecionada.
visVertAlignMiddle 2 Alinha ao centro da forma primária selecionada.
visVertAlignNone 0 Não alinha verticalmente.
visVertAlignTop 1 Alinha à parte superior da forma primária selecionada.

Se você passar valores diferentes de zero para AlignHorizontal e AlignVertical, as formas selecionadas aparecem superimpostas. A forma criada mais recentemente aparece na frente da ordem z.

Chamar o método Alinhar é equivalente a clicar em Posição no separador Base e, em seguida, definir opções em Alinhar Formas.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) exibe como usar o método Align para alinhar três formas verticalmente.

Public Sub Align_Example() 
 
    Dim vsoShape1 As Visio.Shape 
    Dim vsoShape2 As Visio.Shape 
    Dim vsoShape3 As Visio.Shape 
     
    Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(1, 9, 3, 7) 
    Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(3, 6, 5, 5) 
    Set vsoShape3 = Application.ActiveWindow.Page.DrawRectangle(6, 4, 8, 2) 
 
    ActiveWindow.DeselectAll 
     
    ActiveWindow.Select vsoShape1, visSelect 
    ActiveWindow.Select vsoShape2, visSelect 
    ActiveWindow.Select vsoShape3, visSelect 
     
    Application.ActiveWindow.Selection.Align visHorzAlignRight, visVertAlignNone, False 
 
End Sub

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.

  • Last updated on