Aligns the shapes in the specified range of shapes.
expression.Align(AlignCmd, RelativeTo)
expression Required. An expression that returns a ShapeRange object.
AlignCmd Required MsoAlignCmd. Specifies the way the shapes in the specified shape range are to be aligned.
| MsoAlignCmd can be one of these MsoAlignCmd constants. |
| msoAlignBottoms |
| msoAlignCenters |
| msoAlignLefts |
| msoAlignMiddles |
| msoAlignRights |
| msoAlignTops |
RelativeTo Required MsoTriState. Determines whether shapes are aligned relative to the edge of the slide.
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue |
| msoFalse Aligns shapes relative to one another. |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue Aligns shapes relative to the edge of the slide. |
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 = ActivePresentation.Slides(1)
myDocument.Shapes.Range.Align msoAlignLefts, msoFalse