CorelDRAW VBA - 按照面积排序曲线物件（形状）

以下是按照面积对形状进行排序的代码，仅供参考。

Sub 按面积排序曲线物件()
    ' For diaogangxiong
    ActivePage.Shapes.All.CreateSelection’全选
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.ConvertToCurves’转曲线
    Dim grp1 As ShapeRange
    Set grp1 = OrigSelection.UngroupAllEx’解群组
    If grp1.Count > 0 Then
        Dim SS() As Double
        ReDim Preserve SS(grp1.Count - 1)
        Dim n As Long
        For n = 0 To grp1.Count - 1
            SS(n) = grp1(n + 1).Curve.Area
        Next
        Dim a() As Double
        a = SS
        Dim j As Long
        Dim i As Long
        Dim t As Double
        Dim Min As Double
        For i = 0 To UBound(a)
            Min = a(i)