Chart Object Error 91
Oops. I should have removed the comment "(if you have only one chart)
" from the second option. If you have more more number of charts; specify
the name..
With ActiveSheet.ChartObjects(1).Chart
(if you have only one chart)
OR
With ActiveSheet.ChartObjects("Chart 16").Chart
(if you have multiple chart objects)
If this post helps click Yes
---------------
Jacob Skaria
"Jacob Skaria" wrote:
Bob
Replace
<<With ActiveChart
by
With ActiveSheet.ChartObjects(1).Chart
(if you have only one chart)
OR
With ActiveSheet.ChartObjects("chartname").Chart
(if you have only one chart)
If this post helps click Yes
---------------
Jacob Skaria
"Bob Barnes" wrote:
I'm an Access Programmer, but was asked why this proceduire fails w/ Error
91...
I tried setting ..Dim ActiveChart As ChartObject...but it still fails...see
where I have
"<--- Where Error 91 occurs" below. TIA - Bob
Sub ColorBySeriesName()
Dim rPatterns As Range
Dim iSeries As Long
Dim rSeries As Range
Set rPatterns = ActiveSheet.Range("AR6:BH235")
With ActiveChart
For iSeries = 1 To .SeriesCollection.Count <--- Where Error 91 occurs
Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Na me)
If Not rSeries Is Nothing Then
.SeriesCollection(iSeries).Interior.ColorIndex = _
rSeries.Interior.ColorIndex
End If
Next
End With
End Sub
|