Compartir a través de

Método Selection.Align (Visio)

  • Artículo

Alinea dos o más formas seleccionadas.

Sintaxis

expresión. Align (AlignHorizontal, AlignVertical, GlueToGuide)

Expresión Variable que representa un objeto Selection .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
AlignHorizontal Obligatorio VisHorizontalAlignTypes Alinea las formas seleccionadas a lo largo de un eje horizontal. Vea la sección Comentarios para obtener los posibles valores.
AlignVertical Obligatorio VisVerticalAlignTypes Alinea las formas seleccionadas a lo largo de un eje vertical. Vea la sección Comentarios para obtener los posibles valores.
GlueToGuide Opcional Boolean Si es True, crea una guía y pega las formas seleccionadas; si es False, no lo hace. El valor predeterminado es Falso.

Valor devuelto

Nothing

Comentarios

Los siguientes valores posibles para AlignHorizontal se declaran en VisHorizontalSelectionTypes en la biblioteca de tipos de Visio.

Constante Valor Descripción
visHorzAlignCenter 2 Alinea en el centro de la forma seleccionada principal.
visHorzAlignLeft 1 Alinea a la izquierda de la forma seleccionada principal.
visHorzAlignNone 0 No alinea horizontalmente.
visHorzAlignRight 3 Alinea a la derecha de la forma seleccionada principal.

Los siguientes valores posibles para AlignVertical se declaran en VisVerticalSelectionTypes en la biblioteca de tipos de Visio.

Constante Valor Descripción
visVertAlignBottom 3 Alinea a la parte inferior de la forma seleccionada principal.
visVertAlignMiddle 2 Alinea en el medio de la forma seleccionada principal.
visVertAlignNone 0 No alinea verticalmente.
visVertAlignTop 1 Alinea a la parte superior de la forma seleccionada principal.

Si se pasan valores que no sean cero para AlignHorizontal y AlignVertical, las formas seleccionadas aparecen superpuestas. La última forma creada aparece al principio del orden Z.

Llamar al método Align equivale a hacer clic en Posición en la pestaña Inicio y, a continuación, establecer las opciones en Alinear formas.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar el método Align para alinear tres 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.