Align Method Example

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

Set myShapeRange = Selection.ShapeRange
myShapeRange.Align msoAlignLefts, False