第2个回答 2012-02-22
下面宏可以做到,标识的外框还有问题,没解决。用之前建议先另存文档试试。
Sub 折线颜色()
Dim CO As ChartObject, I As Long
On Error Resume Next
For Each CO In ActiveSheet.ChartObjects
For I = 1 To CO.Chart.SeriesCollection.Count
CO.Chart.SeriesCollection(I).Border.Color = 0
CO.Chart.SeriesCollection(I).Format.Fill.ForeColor.RGB = 0
Next
Next
End Sub