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