API Documentation > CorelDRAW > 2025-v26 > Ellipse > IVGEllipse
Ellipse.SetRadius method
Sets the ellipse radius
Syntax:
Sub SetRadius(ByVal HRadius As Double, Optional ByVal VRadius As Double = 0)
Parameters:
Name Type Description
HRadius
Double
VRadius
Double
Specifies the vertical radius of an ellipse, measured in document units. If this value is not specified, it is assigned the same value as the HRadius parameter.
Remarks:
The SetRadius method specifies both the horizontal and the vertical radii of an ellipse. Using SetRadius is equivalent to setting the values of both the HRadius and VRadius properties at the same time.
Examples:
The following VBA example increases the radius of the ellipse both horizontally and vertically by 2". Changing the radius of an ellipse causes its center to move. To preserve the center position of the ellipse, the GetCenterPosition and SetCenterPosition methods are used.
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