CorelDRAW VBA - 使文本适合到路径 Text.FitTextToPath

将指定的美术字文本，沿着指定的路径进行排列，并指定文本的排列效果。

参考代码

Sub test()
    ' 定义美术字变量、椭圆变量
    Dim sText As Shape, sEllipse As Shape
    ' 创建一个美术字
    Set sText = ActiveLayer.CreateArtisticText(0, 0, "WWW.CDRVBA.COM")
    ' 创建椭圆
    Set sEllipse = ActiveLayer.CreateEllipse2(4, 5, 2)
    ' 将美术字的文本对象，适合到椭圆对象
    sText.Text.FitToPath sEllipse
    ' 设置文本的效果
    sText.Effects(1).TextOnPath.Quadrant = cdrBottomQuadrant
End Sub

此代码片首发于：VBA探秘，原始链接：https://www.cdrvba.com/code-dvijunara35n