Sub Test() Dim x As Double, y As Double Dim rx As Double, ry As Double With ActiveShape.Ellipse .GetCenterPosition x, y .GetRadius rx, ry .SetRadius rx + 2, ry + 2 .SetCenterPosition x, y End WithEnd Sub