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

相关推荐
©️2020 CSDN 皮肤主题: 护眼 设计师:闪电赇 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值