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
Version Information:
CorelDRAW: X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER: X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.