EffectTextOnPath.Offset

Property Offset As Double

The Offset property returns or sets the horizontal text offset from the beginning of the path.

The following code example attaches a text shape to a path and places it 2" from the beginning of the path:

Sub Test() 
 Dim sText As Shape, sPath As Shape 
 Set sText = ActiveLayer.CreateArtisticText(0, 0, "Text On Path") 
 Set sPath = ActiveLayer.CreateCurveSegment(0.6, 4.5, 7.8, 8.5, 5.2, 
62, 5.3, -96) 
 sText.Text.FitToPath sPath 
 sText.Effects(1).TextOnPath.Offset = 2 
End Sub