а это из 2017, в 2018 будет скорее всего так же ... в них выранивание и распределение выглядит иначе
ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(2), ActiveLayer.Shapes(1)).AlignAndDistribute 3, 3, 0, 0, False, 2
Sub AlignAndDistribute(MethodH As cdrAlignDistributeH, MethodV As...