API Documentation > CorelDRAW > 2025-v26 > EffectTextOnPath > IVGEffectTextOnPath
EffectTextOnPath.Placement property
Gets or sets the text placement of type cdrFittedPlacement
Syntax:
Property Get Placement() As cdrFittedPlacement
Property Let Placement(ByVal Value As cdrFittedPlacement)
Remarks:
The Placement property returns or specifies the placement of text on an open curve. This property returns a value of cdrFittedPlacement. See also the EffectTextOnPath.Quadrant property.
Examples:
The following VBA example places the text in the middle of a curve.
Sub Test()
Dim sText As Shape, sPath As Shape
Set sText = ActiveLayer.CreateArtisticText(0, 0, "Some Text")
Set sPath = ActiveLayer.CreateCurveSegment(0.6, 4.5, 5, 5.5, 3, 80, 3, -100)
sText.Text.FitToPath sPath
sText.Effects(1).TextOnPath.Placement = cdrCenterPlacement 
End Sub