Excel VBA更改数据透视图中的系列颜色

Question

This is one of those stupid questions that should be really simple, but I can't quite figure out what's wrong, and everything I've found on the Internet hasn't worked.

I just want to recolor the series line in a pivot chart after I change the filters in the pivot table. Here is what I have tried:

ThisWorkbook.Charts(ChartName).SeriesCollection(SeriesName) _
Format.Line.ForeColor = RGB(75, 172, 198)

That code gives me "subscript out of range" error. I also tried:

Sheets(SheetName).ChartObjects(ChartName).Chart.SeriesCollection(SeriesName) _
.Format.Line.ForeColor = RGB(75, 172, 198)

as well as

 ... .ForeColor.ColorIndex = 3

as well as

... .ForeColor.ObjectThemeColor = msoThemeColorAccent4

But those all give me a "type mismatch" error. Excel's VBA Recorder gives me:

ActiveChart.SeriesCollection(2).Select
With Selection.Format.Line
    .Visible = msoTrue
    .ForeColor.ObjectThemeColor = msoThemeColorAccent4
    .ForeColor.TintAndShade = 0
    .ForeColor.Brightness = 0.400000006
    .Transparency = 0
End With

I'm sure I just have some stupid, obvious error somewhere, but I can't for the life of me figure out how to access the color property of a series in a pivot chart. Sometimes it feels like trying to navigate a freakin' labyrinth trying to figure out the cryptic hierarchy of objects that a certain property belongs to in VBA...

Answer 1

What I discover from debugging a simple example is that apparently you cannot assign a .Name property to series in a PivotChart. I would expect this to raise an error, but it does not. It just passes right over the assignment as if nothing happened.

Sub Test()
Dim pivotChart As ChartObject
Dim cht As Chart
Dim srs As Series
Dim seriesName As String

Set pivotChart = ActiveSheet.ChartObjects(1)
Set cht = pivotChart.Chart
Set srs = cht.SeriesCollection(1)

'First look at the name:
Debug.Print srs.Name

'Assign a new name to the string variable
seriesName = "Name"

'Assign the new name from string var to the series
srs.Name = seriesName

'Now review that the name has changed. It hasn't!!
Debug.Print ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Name

End Sub

Answer 2

It seems that you have the makings of a solution with your attempts. A few things that I found (lots of it in XL Help):

1. Format is a read-only property, which might explain why that wasn't working.
2. Use ChartGroups instead of SeriesCollection
3. From XL Help "There's no object that represents a single series line; you either have series lines turned on for all points in a chart group or you have them turned off."
4. Instead of declaring the seriescollection, try using Charts(ChartName).ChartGroup(cg)

So, your code might look like:

Dim cht as Chart
Dim cg as ChartGroup
Set cht = ActiveSheet.ChartObjects(ChartName)
With cht.ChartGroups(cg)
    .HasSeriesLines = True 'turn on series lines for the chart group
    With .SeriesLines.Border
        .ColorIndex=[pick your color]
    End With
End With