• 之前的我們的轉(zhuǎn)曲可以把屬于頁面內(nèi)的文字轉(zhuǎn)曲,但是在CDR中還一個(gè)叫容器的東西,屬于這里面的文字在外面的頁面上無法訪問到,所以我們必須進(jìn)入到一個(gè)一個(gè)容器里面把所有的文字找出來并轉(zhuǎn)曲, 前面的三行頁面轉(zhuǎn)曲用就是第十三節(jié)的直接復(fù)制過來的,這里主要是講容器轉(zhuǎn)曲
• 先上效果
  
• 上一下截圖
  
• 上代碼

Sub 第一個(gè)插件()For Each Item In CorelDRAW.ActiveDocument.Pages '這是從第十三節(jié)頁面轉(zhuǎn)曲中復(fù)制過來的Item.FindShapes(Type:=cdrTextShape).ConvertToCurves '這是從第十三節(jié)頁面轉(zhuǎn)曲中復(fù)制過來的NextSet aa = CorelDRAW.ActivePage.FindShapes(Type:=cdrRectangleShape) '設(shè)置一個(gè)aa用來儲存所有的cdrRectangleShapeSet bb = CorelDRAW.ActivePage.FindShapes(Type:=cdrEllipseShape) '設(shè)置一個(gè)bb用來儲存所有的cdrEllipseShapeSet cc = CorelDRAW.ActivePage.FindShapes(Type:=cdrPolygonShape) '設(shè)置一個(gè)cc用來儲存所有的cdrPolygonShapeSet dd = CorelDRAW.ActivePage.FindShapes(Type:=cdrCurveShape) '設(shè)置一個(gè)dd用來儲存所有的cdrCurveShapeSet ee = CorelDRAW.ActivePage.FindShapes(Type:=cdrPerfectShape) '設(shè)置一個(gè)ee用來儲存所有的cdrPerfectShapeaa.AddRange (bb) '把bb里的形狀全部添加到aa里面aa.AddRange (cc) '把cc里的形狀全部添加到aa里面aa.AddRange (dd) '把dd里的形狀全部添加到aa里面aa.AddRange (ee) '把ee里的形狀全部添加到aa里面For Each Item In aaOn Error Resume Next '出錯了繼續(xù),因?yàn)槭怯械男螤畈⒉皇侨萜魉詴?bào)錯If Item.PowerClip.Shapes.Count > 0 Then Item.PowerClip.Shapes.FindShapes(Type:=cdrTextShape).ConvertToCurves '如果里面的形狀里面有內(nèi)容那么就搜到未轉(zhuǎn)曲的文字進(jìn)行轉(zhuǎn)曲Next ItemEnd Sub

總結(jié)

以上是生活随笔為你收集整理的CorelDRAWX4的VBA插件开发(二十六)深度转曲之包含容器内文字转曲的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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