🐠 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

子程序结束。

总结

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

2025.11.14 使用这个原理，改成批量居中功能

Sub 多组群组物件居中()
 Dim s As Shape
 Dim ss As ShapeRange
 Set ss = ActiveSelectionRange
 For Each s In ss
 
   Dim box As Shape
   Dim sr As ShapeRange
 
  If s.Type = cdrGroupShape Then
   ' 如果这是一个组形状，则该组中的所有形状
   Set sr = s.Shapes.All
   
   '// 按面积排序
   sr.Sort "@shape1.width * @shape1.height < @shape2.width * @shape2.height"
   Set box = sr.LastShape
   sr.Remove sr.IndexOf(box)
   
   sr.CenterX = box.CenterX
   sr.CenterY = box.CenterY

  End If
 Next s
End Sub