本示例将 myDocument 中选定区域内所有图形的左边缘与该区域被黑色控点选定图形的左边缘对齐。

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