vbscript 更改PowerPoint图表中散点图上所有点的颜色

Posted 2021-05-22

Sub FormatScatterPointsColour()

Dim i, j As Long
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
                j = shp.Chart.FullSeriesCollection.Count
                For i = 1 To j
                    shp.Chart.FullSeriesCollection(i).Format.Fill.Visible = msoTrue
                    shp.Chart.FullSeriesCollection(i).Format.Line.Visible = msoTrue
                    shp.Chart.FullSeriesCollection(i).Format.Fill.ForeColor.RGB = RGB(107, 156, 107)
                    shp.Chart.FullSeriesCollection(i).Format.Line.ForeColor.RGB = RGB(107, 156, 107)
                    shp.Chart.FullSeriesCollection(i).HasLeaderLines = True
                Next
            End If
    Next shp
    Next sld
End Sub