API Documentation > CorelDRAW > 2025-v26 > EffectTextOnPath > IVGEffectTextOnPath
EffectTextOnPath.VertPlacement property
Gets or sets the text vertical placement of type cdrFittedVerPlacement
Syntax:
Property Get VertPlacement() As cdrFittedVertPlacement
Property Let VertPlacement(ByVal Value As cdrFittedVertPlacement)
Remarks:
The VertPlacement property returns or specifies the mode of the vertical placement of text for a text-on-path effect. The VertPlacement property returns cdrFittedVertPlacement.
Examples:
The following VBA 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