Sub Test() ActiveDocument.ReferencePoint = cdrBottomLeft With ActivePage .Shapes.All.StretchEx .CenterX, .CenterY, 2 End WithEnd Sub