• 這里再回頭說一下轉曲轉全部頁面, 之前的轉曲是沒有套循環的,只能轉當前頁面

Sub 第一個插件()For Each Item In CorelDRAW.ActiveDocument.PagesItem.FindShapes(Type:=cdrTextShape).ConvertToCurvesNext End Sub

我們把代碼稍作修改套上循環
這樣子程序就會在每個頁面里面去找未轉曲的內容并轉曲了

我們前面已經看到了VB循環用法
item 在這里面每一次循環就代表coreldraw.ActiveDocument.Pages里面的頁面1,頁面2,頁面3,頁面4等等,有多少頁就循環多少次,然后在內部,我們從item直接就相當于從Page這個對象開始接著寫了
FindShapes 這個就是Page里面的一個功能,可以只寫Type:=這個就是相當于告訴程序我只傳這一個參數,我不知道原函數里面有沒有重構函數,但是看開發者手冊里面的介紹參數的時候用了一個中括號[],這就代表是可以省略的參數,所以我估計是有重構函數的,所以程序是可以只傳某一個參數的,當然實際還要去C++里面看一下代碼提示才知道有沒有重構.這都不重要了.我們只要知道這一種用法就可以了
當程序執行到Item.FindShapes(Type:=cdrTextShape)這一段的時候,程序返回的是一個形狀的集合,這個集合里面全是文字,且未轉曲的. 然后執行后面那一句ConvertToCurves的時候,這個功能是屬于ShapeRange對象的,并不是Shape對象,大家了解一下就行了, 而且shapeRange和shape有很多功能都是相同的,不然不了解也并不影響我們使用.

總結

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

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