Selection.Align Method

  • Article
Visio Automation Reference

Aligns two or more selected shapes. Returns Nothing.

Version Information
 Version Added:  Visio 2003

Syntax

expression.Align(AlignHorizontal, AlignVertical, GlueToGuide)

expression   A variable that represents a Selection object.

Parameters

Name Required/Optional Data Type Description
AlignHorizontal Required VisHorizontalAlignTypes Aligns selected shapes along a vertical axis. See Remarks for possible values.
AlignVertical Required VisVerticalAlignTypes Aligns selected shapes along a horizontal axis. See Remarks for possible values.
GlueToGuide Optional Boolean If True, creates a guide and glues selected shapes to it; if False, it does not. The default is False.

Return Value
Nothing

Remarks

The following possible values for AlignHorizontal are declared in VisHorizontalSelectionTypes in the Visio type library.

Constant Value Description

visHorzAlignCenter

2

Aligns to the center of the primary selected shape.

visHorzAlignLeft

1

Aligns to the left of the primary selected shape.

visHorzAlignNone

0

Does not align horizontally.

visHorzAlignRight

3

Aligns to the right of the primary selected shape.

The following possible values for AlignVertical are declared in VisVerticalSelectionTypes in the Visio type library.

Constant Value Description

visVertAlignBottom

3

Aligns to bottom of primary selected shape.

visVertAlignMiddle

2

Aligns to middle of primary selected shape.

visVertAlignNone

0

Does not align vertically.

visVertAlignTop

1

Aligns to top of primary selected shape.

If you pass non-zero values for both AlignHorizontal and AlignVertical, the selected shapes appear superimposed. The most recently created shape appears at the front of the z-order.

Calling the Align method is equivalent to clicking Align Shapes on the Shape menu and setting options in the Align Shapes dialog box.

Passing True for the optional GlueToGuide argument is the equivalent of selecting the Create guide and glue shapes to it check box in the Align Shapes dialog box.

Example

This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Align method to align three shapes vertically.

Visual Basic for Applications 
  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

See Also