In diesem Beispiel werden in myDocument die linken Ränder aller Formen im angegebenen Bereich am linken Rand der Form ausgerichtet, die im Bereich am weitesten links liegt.
Set myDocument = Worksheets(1) myDocument.Shapes.SelectAll Selection.ShapeRange.Align msoAlignLefts, False