PowerPoint VBA - 循环所有幻灯片，所有形状，查找图表，将数据标签颜色设置为黑色

Question

我是PowerPoint VBA的新手，请耐心等待。

我想：

1. 遍历给定pptx上的所有幻灯片，
2. 遍历给定幻灯片上的所有形状，
3. 查找图表形状
4. 循环播放图表的系列集
5. 将datalabel颜色属性设置为深黑色。

到目前为止，我已经完成了前3个任务，但我需要最后2个帮助。这是我的代码：

Sub test()

  Dim slide As Object
  Dim shape As Object
  Dim shapeNames As Object
  Dim chSeries As Series

  i = 0
  For Each slide In ActivePresentation.Slides

      For Each shape In slide.Shapes

          If shape.HasChart Then

              i = i + 1
              Debug.Print "found a chart on slide", i

          End If

      Next

  Next

End Sub

Answer 1

解决。

Sub test()

    Dim sld As Slide
    Dim shp As Shape
    Dim sr As Series
    Dim chrt As Chart

        For Each sld In ActivePresentation.Slides
            For Each shp In sld.Shapes

                If shp.HasChart Then
                    Debug.Print shp.Chart.ChartType

                    If shp.Chart.ChartType = 57 Then

                        shp.Chart.SeriesCollection(1).DataLabels.Font.Color = RGB(0, 0, 0)

                     End If

                End If

    Next shp
    Next sld

End Sub

虽然我没有成功遍历图表中的系列，但这有效。