EffectTextOnPath.PlaceOnOtherSide

Property PlaceOnOtherSide As Boolean

The PlaceOnOtherSide property returns whether text is placed on the opposite side of the path in a text on path effect. A value of True places the text on the opposite side of the path object.

The following code example places the text inside an ellipse:

Sub Test() 
 Dim sText As Shape, sPath As Shape 
 Set sText = ActiveLayer.CreateArtisticText(0, 0, "Some Text") 
 Set sPath = ActiveLayer.CreateEllipse2(4.25, 5.5, 2, 3) 
 sText.Text.FitToPath sPath 
 With sText.Effects(1).TextOnPath 
  .Quadrant = cdrBottomQuadrant 
  .PlaceOnOtherSide = True 
  .DistanceFromPath = 0.1 
 End With 
End Sub