不使用.type属性对powerpoint中的形状组进行计数

Sub CountShapeGroups()
    Dim slide As Slide
    Dim shape As Shape
    Dim groupCount As Integer
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否为形状组
            If shape.Type = msoGroup Then
                ' 增加形状组计数
                groupCount = groupCount + 1
            End If
        Next shape
    Next slide
    
    ' 输出形状组计数结果
    MsgBox "形状组的数量为：" & groupCount
End Sub