Sub AlignAndDistribute(MethodH As cdrAlignDistributeH, MethodV As cdrAlignDistributeV, [AlignTo As cdrAlignShapesTo = cdrAlignShapesToLastSelected (0)], [DistributeArea As cdrDistributeArea = cdrDistributeToSelection (0)], [UseOutline As Boolean = False], [TextAlignOrigin As cdrTextAlignOrigin = cdrTextAlignBoundingBox (2)], [PointX As Double = 0], [PointY As Double = 0], [DistributeRect As Rect = 0])