API Documentation > CorelDRAW > 2025-v26 > EffectTextOnPath > IVGEffectTextOnPath
EffectTextOnPath.Quadrant property
Gets or sets the text quadrant of type cdrFittedQuadrant
Syntax:
Property Get Quadrant() As cdrFittedQuadrant
Property Let Quadrant(ByVal Value As cdrFittedQuadrant)
Remarks:
The Quadrant property returns or specifies the placement of text on a closed curve. This property returns cdrFittedQuadrant. See also the EffectTextOnPath.Placement property.
Examples:
The following VBA example places the text on the right side of a circle.
Sub Test()
Dim sText As Shape, sPath As Shape
Set sText = ActiveLayer.CreateArtisticText(0, 0, "Some Text")
Set sPath = ActiveLayer.CreateEllipse2(4.25, 5.5, 2)
sText.Text.FitToPath sPath
sText.Effects(1).TextOnPath.Quadrant = cdrRightQuadrant 
End Sub