.我們經常要根據一特性找到某些形狀,比如

• 找到輪廓顏色為CMYK(0,0,0,100)的形狀
• 找到填充色為RGB的形狀
• 找到應用一特效透鏡的形狀
• 并且找到以上這些內容的個數

而他里面內置了快速定位的功能query, 這一節我們共同來學習快速查找QEURY功能

先上代碼:

Sub 第一個插件()Dim theCount As IntegertheCount = ActivePage.Shapes.FindShapes(Query:="@colors.find(cmyk(0,0,0,100))").CountIf theCount <> 0 ThenMsgBox "本文件內含有" & theCount & "個"End If End Sub

這是一段查找填充或者輪廓顏色為CMYK(0,0,0,100)也就是平常常說的單色黑的查找代碼

這就是快速定位顏色的形狀集合, 根據上一節的內容我們知道FindShapes是找到的形狀集合ShapeRange
Count是ShapeRange里面的一個屬性,里面記錄的是集合的總數,是一個長整數

• 再說一下查找形狀大于100毫米的寫法

Sub 第一個插件()Dim theCount As IntegertheCount = ActivePage.Shapes.FindShapes(Query:="@width > {100 mm}").CountIf theCount <> 0 ThenMsgBox "本文件內含有" & theCount & "個"End If End Sub

這樣就可以了

• 再說一下查找某些特效的查法

Sub 第一個插件()Dim theCount As IntegertheCount = ActivePage.Shapes.FindShapes(Query:="@com.transparency.type <> 0").CountIf theCount <> 0 ThenMsgBox "本文件內含有" & theCount & "個"End If End Sub

上面這一串是直接查找所有形狀 看看里面有沒有含有使用了透鏡效果的形狀,如果有就會彈窗

代碼釋義
FindShapes 可以在開發者手冊看到最后一個參數是Query,這個query就是另類的快速查詢方法了
Query:=""這個是固定用法,后面接雙引號, 引號內部就是我們更改的查詢參數
"@colors.find(cmyk(0,0,0,100))要訪問當前對象的方法和屬性，必須在方法或屬性名稱前加上@符號
這里再說一下關于Shape的可查詢方法一共有哪些呢?

序號符號返回值

1	@name	當前形狀的名稱
2	@type	返回表示形狀類型的字符串
3	@fill	返回表示形狀填充的填充對象
4	@outline	返回表示形狀輪廓的輪廓對象
5	@width	返回形狀的寬度(后面要帶單位)
6	@height	返回形狀的高度
7	@left	返回該形狀在頁面上左邊緣的水平位置
8	@right	返回該形狀在頁面上的右邊緣的水平位置
9	@top	返回該形狀在頁面上的頂部Y軸位置
10	@bottom	返回該形狀在頁面上的底邊的Y軸位置
11	@centerX	返回該形狀在頁面上的中心點的X軸位置
12	@CenterY	返回該形狀在頁面上的中心點的Y軸位置
13	@colors	返回用于形狀填充和輪廓的顏色數組。這個數組只包含唯一的顏色，所以如果填充和輪廓有相同的顏色，只有一種顏色是返回值
14	@com	返回形狀的COM對象。這允許訪問形狀對象及其子對象的任何屬性和函數,因為CQL不能直接訪問的方法和屬性。

一共就這么14種

這樣子,當我們寫上其中任意一種的時候,這個@**字符串代表就是所有當前文檔中所有能夠找得到的與之匹配的形狀
.find(cmyk(0,0,0,100))是顏色查找的固定用法

@width > {100 mm} 這一段里面, @width表示形狀的寬度,> 表示大于{100 mm}表示100毫米要用大括號包起來.
這里插入講一下幾種常用的:

等于 =

不等于 <>

大于等于 >=

小于等于 <=

大于 >

小于 <

或者 |

非 !

@com.transparency.type <> 0這一段的com是一個組件,回傳的是COM:IVGShape對象, 這一段是一個布爾值,也就是結果TRUE或者FALSE, 只要是TRUE這個shape就會被加入到集合中
這個COM組件內部是什么還有待進步了解,等我去tlb內部了解清楚了再回頭來解釋吧
這個transparency就是透鏡特效的類,type是他的子屬性
等于0的時候是沒有特效, 而另外有1到4各表示一種類型的透鏡特效, 所以我在這里用了非0,也就是<>0來表示

總結

以上是生活随笔為你收集整理的CorelDRAWX4的VBA插件开发(十四)快速定位形状的全部內容，希望文章能夠幫你解決所遇到的問題。

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