PowerPoint VBA - loop all slides, all shapes, find chart, set datalabel color to Black
Solved.
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 sldEnd Sub
Though I didn't successfully loop over the series in chart but this works.