Sub Test() Dim s As Shape ActiveDocument.ReferencePoint = cdrBottomLeft For Each s In ActivePage.Shapes s.SetSize 1, 1 Next sEnd Sub