Text.FitToPath

Sub FitToPath(Path As Shape)

Member of Text

The FitToPath method positions artistic text along a path.

You can’t fit text to the path of another text object.


Parameters	Description
Path	Specifies the path

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