公告
本專欄的相關(guān)的文章已不在簡書同步更新蕉朵，請直接訪問 VBA探秘 官方網(wǎng)站或關(guān)注微信公眾號獲取最新文章動態(tài)万牺。
coreldraw-vba-create-artistic-text
目的
這篇教程將教會你使用 CorelDRAW VBA代碼在文檔中創(chuàng)建美術(shù)字文本枫弟，并調(diào)用 FitTextToPath 方法讓文本沿著形狀的路徑排列邢享。
美術(shù)字文本是一種短文本，適合顯示文字內(nèi)容較少（通常是一行）的文本內(nèi)容淡诗，可以給美術(shù)字文本應(yīng)用圖形效果骇塘。與之相反的段落文本，則適合顯示內(nèi)容較多的文本內(nèi)容韩容，并可以對其設(shè)置更加復(fù)雜的排版方式款违，本文暫且不討論段落文本。
創(chuàng)建美術(shù)字
要創(chuàng)建一個美術(shù)字文本群凶，你可以使用以下方法之一：
- Layer.CreateArtisticText：用來創(chuàng)建基本的美術(shù)字文本
- Layer.CreateArtisticTextWide：用來創(chuàng)建帶有Unicode字符的美術(shù)字文本
這兩個方法都需要指定美術(shù)字文本對象的坐標(biāo)及其文本內(nèi)容插爹，同時也提供了可選的擴(kuò)展參數(shù)用來設(shè)置字體名稱、字體大小请梢、字體格式赠尾、對其方式等等。調(diào)用這兩個方法毅弧，返回的都是一個 Shape（形狀）對象气嫁。代碼演示如下：
' 聲明形狀變量
Dim sh As Shape
' 設(shè)置當(dāng)前活動文檔的單位為毫米
ActiveDocument.Unit = cdrMillimeter
' 創(chuàng)建一個內(nèi)容為 Hello Zebe 的美術(shù)字
Set sh = ActiveLayer.CreateArtisticText(0, 0, "Hello Zebe")
運(yùn)行效果如下圖所示：
coreldraw-vba-create-artistic-text-1
把美術(shù)字文本沿著形狀路徑排列
Text 類提供了一個 FitTextToPath 方法，該方法用于簡單地將文本附加到一個形狀的外輪廓路徑上够坐。具體請查看下面的代碼演示：
' 聲明變量
Dim sh As Shape, sPath As Shape
' 設(shè)置文檔單位為毫米
ActiveDocument.Unit = cdrMillimeter
' 創(chuàng)建形狀路徑
Set sPath = ActiveLayer.CreateEllipse(0, 10, 60, 60)
' 創(chuàng)建美術(shù)字文本
Set sh = ActiveLayer.CreateArtisticText(1, 4, "這是沿著形狀路徑排列的美術(shù)字")
' 把美術(shù)字沿著路徑排列
sh.Text.FitToPath sPath
運(yùn)行效果如下圖所示：
coreldraw-vba-create-artistic-text-2
原創(chuàng)聲明：本文首發(fā)于個人CorelDRAW VBA博客寸宵，請尊重文章版權(quán)。
轉(zhuǎn)載請注明原文鏈接：http://www.cdrvba.com/coreldraw-vba-create-artistic-text
