Object Model Reference : Classes : T : Text : Methods : Text.FitToPath
|
|
| Object Model Reference : Classes : T : Text : Methods : Text.FitToPath |
Sub FitToPath(Path As Shape)
Member of Text
The FitToPath method positions artistic text along a path.
• |
Text cannot be fitted to the path of another text object.
|
The following VBA example places a text object on an ellipse.
Sub Test() |
Dim sText As Shape, sEllipse As Shape |
Set sText = ActiveLayer.CreateArtisticText(0, 0, "Text On Path") |
Set sEllipse = ActiveLayer.CreateEllipse2(4, 5, 2) |
sText.Text.FitToPath sEllipse |
sText.Effects(1).TextOnPath.Quadrant = cdrBottomQuadrant |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.