需要使用VBA更改透视图上的颜色

问题：

我正在使用Excel 2010和多个数据透视图生成报告。 当我生成报告时，我无法将透视图系列的颜色设置为静态值。 有些时候“通行证”系列显示为“红色”，这会造成混乱。

我尝试使用下面的代码强制更改系列上的颜色：

Sheets("PSD").Select ActiveSheet.ChartObjects("Chart 5").Activate ActiveChart.SeriesCollection(1).Select With Selection.Format.Fill .Visible = msoTrue .ForeColor.RGB = RGB(0, 176, 80) .Transparency = 0 .Solid End With 

代码的问题是， SeriesCollection（1）并不总是我想要的同一系列，当我更新代码作为SeriesCollection（“通过”），它不起作用。

我需要find一种方法来引用SeriesCollection的名称，如果它不在那里，我可以继续使用On Error Resume Next，不需要检查它。

Answer 1

要通过它的名字得到一个系列的句柄，你可以这样做：

 Sub cht() Dim cht As Chart Set cht = Sheets("PSD").ChartObjects("Chart 5").Chart Dim ss As Series Set ss = cht.SeriesCollection("Pass") With ss.Format.Fill .Visible = msoTrue .ForeColor.RGB = RGB(0, 176, 80) End With End Sub 

---

之前：

后：