EffectTextOnPath.Orientation

Property Orientation As cdrFittedOrientation

The Orientation property returns or sets the character orientation as the text follows the control path.

This value returns cdrFittedOrientation.

The following code 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