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

Sub 第一個插件()For Each Item In CorelDRAW.ActiveDocument.Pages '這是從第十三節頁面轉曲中復制過來的Item.FindShapes(Type:=cdrTextShape).ConvertToCurves '這是從第十三節頁面轉曲中復制過來的NextSet aa = CorelDRAW.ActivePage.FindShapes(Type:=cdrRectangleShape) '設置一個aa用來儲存所有的cdrRectangleShapeSet bb = CorelDRAW.ActivePage.FindShapes(Type:=cdrEllipseShape) '設置一個bb用來儲存所有的cdrEllipseShapeSet cc = CorelDRAW.ActivePage.FindShapes(Type:=cdrPolygonShape) '設置一個cc用來儲存所有的cdrPolygonShapeSet dd = CorelDRAW.ActivePage.FindShapes(Type:=cdrCurveShape) '設置一個dd用來儲存所有的cdrCurveShapeSet ee = CorelDRAW.ActivePage.FindShapes(Type:=cdrPerfectShape) '設置一個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 '出錯了繼續,因為是有的形狀并不是容器所以會報錯If Item.PowerClip.Shapes.Count > 0 Then Item.PowerClip.Shapes.FindShapes(Type:=cdrTextShape).ConvertToCurves '如果里面的形狀里面有內容那么就搜到未轉曲的文字進行轉曲Next ItemEnd Sub

總結

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

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