用vba在powerpoint中查找图表系列集合的个数

Sub FindChartSeriesCount()
    Dim slide As Slide
    Dim shape As Shape
    Dim chart As Chart
    Dim seriesCount As Integer
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否为图表
            If shape.HasChart Then
                Set chart = shape.Chart
                ' 获取图表的系列集合个数
                seriesCount = chart.SeriesCollection.Count
                ' 在Immediate窗口中输出系列集合个数
                Debug.Print "图表系列集合个数：" & seriesCount
            End If
        Next shape
    Next slide
End Sub