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