Share via


Align Method [Excel 2003 VBA Language Reference]

Aligns the shapes in the specified range of shapes.

expression.Align(AlignCmd, RelativeTo)

expression Required. An expression that returns one of the objects in the Applies To list.

MsoAlignCmd

MsoAlignCmd can be one of these MsoAlignCmd constants.
msoAlignCenters
msoAlignMiddles
msoAlignTops
msoAlignBottoms
msoAlignLefts
msoAlignRights

MsoTriState

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue

Example

This example aligns the left edges of all the shapes in the specified range in myDocument with the left edge of the leftmost shape in the range.

Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
Selection.ShapeRange.Align msoAlignLefts, False

Applies to | ShapeRange Collection