CorelDRAW VBA - 在图层的指定位置以Unicode格式创建段落文本 Layer.CreateParagraphTextWide

Layer.CreateParagraphTextWide 方法用来在图层的指定位置以 Unicode 格式创建段落文本。

参数说明

参数	描述
Left	指定从段落-文本框架的左侧到页面框架的左侧的距离
Top	指定从段落-文本框架顶部到页面框架顶部的距离
Right	指定段落-文本框架右侧到页面框架右侧的距离
Bottom	指定从段落-文本框架底部到页面框架底部的距离
Text	指定的文本。此参数是可选的。
LanguageID	指定的语言。这个参数是可选的，它的默认值是cdrLanguageNone(0)。
CharSet	指定字符集。此参数是可选的，其默认值为cdrCharSetMixed(-1)。
Font	指定的字体。此参数是可选的。
Size	指定字体大小。此参数是可选的，其默认值为0。
Bold	指定是否应用粗体。这个参数是可选的，它的默认值是cdrUndefined(-2)。
Italic	指定是否应用斜体。这个参数是可选的，它的默认值是cdrUndefined(-2)。
Underline	下划线
Alignment	指定对齐。这个参数是可选的，它的默认值是cdrMixedAlignment(6)。

VBA参考代码

下面的示例VBA代码用 希腊语 创建了一个段落文本对象。

Dim s As Shape
Set s = ActiveLayer.CreateParagraphTextWide(0, 3, 3, 0, Chr(216) & Chr(231) & Chr(241) & Chr(233) & Chr(243), cdrGreek, cdrCharSetGreek, "Times New Roman", 24)

---

原创声明：本文首发于 《CorelDRAW VBA探秘》 独立站点，请尊重文章版权。
转载请注明原文链接：http://www.cdrvba.com/coreldraw-vba-layer-create-paragraph-text-wide

---

CorelDRAW VBA - CSDN文章专栏：https://blog.csdn.net/column/details/27356.html