CorelDRAW VBA 选择一组物件，最外面物件修改没有轮廓

CorelDRAW VBA 最大物件取消轮廓 详细代码解释

Sub 最大物件取消轮廓()
    Dim sr As ShapeRange
    Set sr = ActiveSelectionRange
    
    '// 按面积排序
    sr.Sort "@shape1.width * @shape1.height < @shape2.width * @shape2.height"
    sr.LastShape.Outline.SetNoOutline
    
End Sub

这段 CorelDRAW VBA 代码的作用是取消选定形状中面积最大的形状的轮廓。下面是对代码的逐行解释：

Sub 最大物件取消轮廓()

• 定义一个名为 最大物件取消轮廓 的子程序。

    Dim sr As ShapeRange

• 声明一个变量 sr，类型为 ShapeRange，用于存储选定的形状范围。

    Set sr = ActiveSelectionRange

• 将当前活动选择的形状范围赋值给 sr。ActiveSelectionRange 代表当前选中的形状。

    '// 按面积排序

• 这是一条注释，说明接下来的代码将对形状按面积进行排序。

    sr.Sort "@shape1.width * @shape1.height < @shape2.width * @shape2.height"

• 对形状范围 sr 进行排序，排序的依据是形状的面积（宽度 * 高度）。这个排序将形状从小到大排列。

    sr.LastShape.Outline.SetNoOutline

• 取消排序后形状范围中的最后一个形状（即面积最大的形状）的轮廓设置。SetNoOutline 方法会去掉该形状的轮廓。

End Sub

• 子程序结束。

总结

这段代码的整体功能是：在当前选定的形状中，找出面积最大的形状，并去掉它的轮廓。通过排序实现这一目标，确保操作的准确性。