CorelDRAWX4的VBA插件開發(fā)(五)一鍵轉(zhuǎn)曲

1.先展示一下轉(zhuǎn)曲代碼

Sub 第一個插件()CorelDRAW.ActivePage.FindShapes(Type:=cdrTextShape).ConvertToCurves End Sub

把之前的代碼修改成上面這樣,當(dāng)然我直接修改,是為了方便而已,所以沒有另外新增一個按鈕來實(shí)現(xiàn)這個功能,如果你想保留這個功能,可以在下面另起一行把命名改一下就行了

以上的代碼一個當(dāng)頁內(nèi)容全部轉(zhuǎn)曲的功能就實(shí)現(xiàn)了.
可以看到我這一次沒有寫ActiveDocument, 是直接寫的ActivePage,因?yàn)檫@樣寫也是可以的,直接定位到當(dāng)前活動的頁面
FindShapes 是一個查找形狀的功能,后面的括號是調(diào)用的參數(shù)
Type:=cdrTextShape 表示查找的類型為cdrTextShape
cdrTextShape 是內(nèi)部約定的類型,代表文字類型的形狀

在這里,一個問題就來了,我怎么查看還有一些其它的形狀類型呢?

這時我們可以直接按F2喚出對象瀏覽器.輸入Type可以看到含Type的還有很多種類型,我們只要找到cdrShapeType就可以了,這個就是形狀類型;然后下面可以看到有大約二十七八種的類型,有曲線,有群組對象,有位圖,等等…如果還想深入的了解可以去PDF手冊里面查看詳情.

ConvertToCurves 是轉(zhuǎn)換成曲線

這樣一個當(dāng)頁內(nèi)容全部轉(zhuǎn)曲的功能就實(shí)現(xiàn)了,但問題是一個文件有可能有很多個頁面,比如畫冊之類的,如果要轉(zhuǎn)曲所有頁面只要在外面套一個循環(huán)就行.

總結(jié)

以上是生活随笔為你收集整理的CorelDRAWX4的VBA插件开发(五) 一键转曲的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。