• 這里再回頭說一下轉(zhuǎn)曲轉(zhuǎn)全部頁(yè)面, 之前的轉(zhuǎn)曲是沒有套循環(huán)的,只能轉(zhuǎn)當(dāng)前頁(yè)面

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

我們把代碼稍作修改套上循環(huán)
這樣子程序就會(huì)在每個(gè)頁(yè)面里面去找未轉(zhuǎn)曲的內(nèi)容并轉(zhuǎn)曲了

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

總結(jié)

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

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