Método Selection.Align (Visio)

Alinea dos o más formas seleccionadas.

Sintaxis

más sencilla.Alinear (AlinearHorizontal, AlinearVertical, PegarToGuía)

expresión Variable que representa un objeto de selección .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Alinear horizontalmente Obligatorio VisHorizontalAlignTypes Alinea las formas seleccionadas a lo largo de un eje horizontal. Vea la sección Comentarios para obtener los posibles valores.
Alinear vertical 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 Verdadero, crea una guía y le 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 Alinear equivale a hacer clic en Posición en la pestaña Inicio y, después, configurar 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.

  • Last updated on