CorelDRAWX4的VBA插件開發(九)循環的套用

之前我所用的都是針對單個對象的功能,而想一次性操作所有形狀只需要在外面套上一個循環數就行了

范例:一次性更改所有形狀的尺寸(統一尺寸)

Sub 第一個插件()CorelDRAW.ActiveDocument.Unit = cdrMillimeterFor Each Item In CorelDRAW.ActivePage.ShapesItem.SetSize 10, 10Next End Sub

for 循環的開始
each 固定用法(每一個的意思)
item 這個名稱可以隨意改,不要用數字開頭(代表其中一個)在循環內部它表表示其中的一個對象
in 固定用法(表示前面的這個對象的是在后面這個集合中)
CorelDRAW.ActivePage.Shapes集合(這里用的就是當前頁面所有對象的集合,注意:所有對象包含母頁面的輔助線,所以稍加不注意會報錯的哦,因為輔助線是沒有尺寸這個屬性的)
Next 循環的結束,固定用法

所以這個循環會執行N次, 里面有多少個對象他就執行多少次,直到最后一個

總結

以上是生活随笔為你收集整理的CorelDRAWX4的VBA插件开发(九)循环的套用和统一尺寸的全部內容，希望文章能夠幫你解決所遇到的問題。

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