Object Model Reference : Classes : E : EffectTextOnPath : Properties : EffectTextOnPath.Orientation |
Property Orientation As cdrFittedOrientation
Member of EffectTextOnPath
The Orientation property returns or specifies the character orientation as the text follows the control path.
This value returns cdrFittedOrientation.
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 |
Copyright 2013 Corel Corporation. All rights reserved.