形状对齐

Sub 形状对齐()
'ActiveSelectionRange 当前所选对象
ActiveSelectionRange.AlignAndDistribute 3, 0, 0, 0, False, 2 '水平居中
ActiveSelectionRange.AlignAndDistribute 3, 3, 0, 0, False, 2 '垂直居中
'ActiveSelectionRange.AlignAndDistribute 2, 0, 0, 0, False, 2 '左对齐
'ActiveSelectionRange.AlignAndDistribute 2, 1, 0, 0, False, 2 '上对齐
'ActiveSelectionRange.AlignAndDistribute 1, 1, 0, 0, False, 2 '右对齐
'ActiveSelectionRange.AlignAndDistribute 1, 2, 0, 0, False, 2 '下对齐
End Sub