CorelDRAWX4的VBA插件開發(五)一鍵轉曲

1.先展示一下轉曲代碼

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

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

以上的代碼一個當頁內容全部轉曲的功能就實現了.
可以看到我這一次沒有寫ActiveDocument, 是直接寫的ActivePage,因為這樣寫也是可以的,直接定位到當前活動的頁面
FindShapes 是一個查找形狀的功能,后面的括號是調用的參數
Type:=cdrTextShape 表示查找的類型為cdrTextShape
cdrTextShape 是內部約定的類型,代表文字類型的形狀

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

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

ConvertToCurves 是轉換成曲線

這樣一個當頁內容全部轉曲的功能就實現了,但問題是一個文件有可能有很多個頁面,比如畫冊之類的,如果要轉曲所有頁面只要在外面套一個循環就行.

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。