CorelDRAWX4的VBA插件開(kāi)發(fā)(九)循環(huán)的套用

之前我所用的都是針對(duì)單個(gè)對(duì)象的功能,而想一次性操作所有形狀只需要在外面套上一個(gè)循環(huán)數(shù)就行了

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

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

for 循環(huán)的開(kāi)始
each 固定用法(每一個(gè)的意思)
item 這個(gè)名稱可以隨意改,不要用數(shù)字開(kāi)頭(代表其中一個(gè))在循環(huán)內(nèi)部它表表示其中的一個(gè)對(duì)象
in 固定用法(表示前面的這個(gè)對(duì)象的是在后面這個(gè)集合中)
CorelDRAW.ActivePage.Shapes集合(這里用的就是當(dāng)前頁(yè)面所有對(duì)象的集合,注意:所有對(duì)象包含母頁(yè)面的輔助線,所以稍加不注意會(huì)報(bào)錯(cuò)的哦,因?yàn)檩o助線是沒(méi)有尺寸這個(gè)屬性的)
Next 循環(huán)的結(jié)束,固定用法

所以這個(gè)循環(huán)會(huì)執(zhí)行N次, 里面有多少個(gè)對(duì)象他就執(zhí)行多少次,直到最后一個(gè)

總結(jié)

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

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