CorelDRAW VBA - 创建文本框(段落文本)

CDR超平面云插件

于 2018-01-23 13:53:17 发布

阅读量2.3k

点赞数

文章标签： coreldraw vba CreateParagraphText 文本框段落文本

本文链接：https://blog.csdn.net/zebe1989/article/details/79138834

版权

CDR插件开发之入门知识专栏收录该内容

78 篇文章 42 订阅 ¥39.90 ¥99.00

订阅专栏

超级会员免费看

coreldraw-vba-create-paragraph-text-box

目的

本文介绍CorelDRAW VBA代码使用 CreateParagraphText 函数创建文本框（段落文本）的相关操作代码。

代码演示

在CorelDRAW中创建文本框，即创建段落文本。准确的叫法是段落文本，使用 CreateParagraphText 函数即可创建段落文本，请看下面的代码演示：

Sub main()
    ' 创建一个新的文档
    Dim doc As Document
    Set doc = CreateDocument
    doc.Unit = cdrMillimeter

    ' 在活动图层上创建一个段落文本
    Dim textbox As Shape
    Set textbox = doc.ActiveLayer.CreateParagraphText(0, 0, 120, 10, "这是一个文本框（段落文本）", cdrChineseSingapore, cdrCharSetDefault, "宋体&

了解本专栏