| Name | Type | Description |
|---|---|---|
| HRadius |
Double
|
|
| VRadius |
Double
|
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 With End Sub