FrymanSMU
12-01-2009, 12:40 PM
I've got a softball I wanted to lob at someone, your help is greatly appreciated.
I have a pivot chart that I am trying to refomat but I keep getting a run-time error "438" object doesn't support his property or methd.
Sub ChartColor()
'On Error GoTo Exits
Dim i As Long: i = 1
Dim c As Variant: c = 17
Do
With Sheets("Menu").ChartObjects("Chart 2").SeriesCollection(1).Interior
.ColorIndex = c
.Pattern = xlSolid
i = i + 1
c = c + 1
End With
Loop Until c = 33
Exits:
End Sub
I have a pivot chart that I am trying to refomat but I keep getting a run-time error "438" object doesn't support his property or methd.
Sub ChartColor()
'On Error GoTo Exits
Dim i As Long: i = 1
Dim c As Variant: c = 17
Do
With Sheets("Menu").ChartObjects("Chart 2").SeriesCollection(1).Interior
.ColorIndex = c
.Pattern = xlSolid
i = i + 1
c = c + 1
End With
Loop Until c = 33
Exits:
End Sub