Sub Test() Dim s As Shape Dim sr As ShapeRange Dim x As Double, y As Double, w As Double, h As Double Set s = ActiveLayer.CreateEllipse(1, 2, 3, 4) ActiveDocument.ReferencePoint = cdrCenter Set sr = ActivePage.Shapes.All sr.GetBoundingBox x, y, w, h ActiveLayer.CreateRectangle2 x, y, w, yEnd Sub