EffectTextOnPath.VertPlacement

Property VertPlacement As cdrFittedVertPlacement

The VertPlacement property returns or sets the mode of the vertical placement of text for a text-on-path effect.

The VertPlacement property returns cdrFittedVertPlacement.

The following code example places the text on a circle, so it appears centered vertically relative to the circle:

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) 
 sText.Text.FitToPath sPath 
 sText.Effects(1).TextOnPath.VertPlacement = cdrCenterVertPlacement 
End Sub