API Documentation > CorelDRAW > 2025-v26 > EffectTextOnPath > IVGEffectTextOnPath
EffectTextOnPath.Orientation property
Gets or sets the text orientation of type cdrFittedOrientation
Syntax:
Property Get Orientation() As cdrFittedOrientation
Property Let Orientation(ByVal Value As cdrFittedOrientation)
Remarks:
The Orientation property returns or specifies the character orientation as the text follows the control path. This value returns cdrFittedOrientation.
Examples:
The following VBA example creates a text shape fitted to a path and makes the text remain upright by skewing characters vertically.
Sub Test()
Dim sText As Shape, sPath As Shape
Set sText = ActiveLayer.CreateArtisticText(0, 0, "Some Long Text Line")
Set sPath = ActiveLayer.CreateCurveSegment(0.6, 4.5, 5, 5.5, 3, 80, 3, -100)
sText.Text.FontProperties.Size = 48
sText.Text.FitToPath sPath
sText.Effects(1).TextOnPath.Orientation = cdrVerticalSkewOrientation 
End Sub