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

虽然我没有成功循环图表中的系列,但这是有效的.