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