CorelDRAWX4的VBA插件开发(九)循环的套用和统一尺寸

CorelDRAWX4的VBA插件开发(九)循环的套用

之前我所用的都是针对单个对象的功能,而想一次性操作所有形状只需要在外面套上一个循环数就行了

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

Sub 第一个插件()
    CorelDRAW.ActiveDocument.Unit = cdrMillimeter
    For Each Item In CorelDRAW.ActivePage.Shapes
        Item.SetSize 10, 10
    Next
End Sub

for 循环的开始
each 固定用法(每一个的意思)
item 这个名称可以随意改,不要用数字开头(代表其中一个)在循环内部它表表示其中的一个对象
in 固定用法(表示前面的这个对象的是在后面这个集合中)
CorelDRAW.ActivePage.Shapes集合(这里用的就是当前页面所有对象的集合,注意:所有对象包含母页面的辅助线,所以稍加不注意会报错的哦,因为辅助线是没有尺寸这个属性的)
Next 循环的结束,固定用法

所以这个循环会执行N次, 里面有多少个对象他就执行多少次,直到最后一个