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 Selection .
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
AlignHorizontal | Obrigatório | VisHorizontalAlignTypes | Alinha formas selecionadas ao longo de um eixo horizontal. Consulte Comentários para valores possíveis. |
AlignVertical | Obrigatório | VisVerticalAlignTypes | Alinha formas selecionadas ao longo de um eixo vertical. Consulte Comentários para valores possíveis. |
GlueToGuide | Opcional | Boolean | Se True, cria um guia e cola formas selecionadas a ele; se False, ele não. O padrão é False. |
Valor de retorno
Nada
Comentários
Os valores possíveis a seguir 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 valores possíveis a seguir 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 na guia Página Inicial 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.