vbscript 格式化Excel图表的所有散点图

Posted 2021-05-22

Sub FormatScatterPointsColour()

Dim i, j As Integer

j = ActiveChart.SeriesCollection.Count

Debug.Print j

For i = 1 To j
    ActiveChart.FullSeriesCollection(i).Format.Fill.Visible = msoTrue
    ActiveChart.FullSeriesCollection(i).Format.Line.Visible = msoTrue
    ActiveChart.FullSeriesCollection(i).Format.Fill.ForeColor.RGB = RGB(107, 156, 107)
    ActiveChart.FullSeriesCollection(i).Format.Line.ForeColor.RGB = RGB(107, 156, 107)
    
Next
End Sub