Chart series point coloring no longer works on new files

[gdesreu]

Hi,

I have some code that I have used for years on other files. Those files still work just fine when I open them. I have copied the code to a new file but I am getting a "Object variable or With Block variable not set" error at

.Points(iCategory).MarkerForegroundColor = rCategory.Interior.Color

The rCategory is set to nothing which is what I think is causing it. I have no idea why my old files work fine but when I try to recreate them in a new file I get this error. Any help is appreciated. I was up till midnight last night trying to resolve this but I am at a loss and can't figure it out. Thanks

Private Sub CommandButton1_Click()
  Dim rPatterns As Range
  Dim iCategory As Long
  Dim vCategories As Variant
  Dim rCategory As Range
  Dim HDrange As String
  Dim HDrng1 As String
  Dim HDrng2 As String


HDrng1 = Sheets("Sheet1").Range("d2").Row
HDrng2 = Sheets("sheet1").Range("d2").End(xlDown).Row
HDrange = "(d" & HDrng1 & ":" & "d" & HDrng2 & ")"

Set rPatterns = Sheets("sheet1").Range(HDrange)
  
  ActiveSheet.ChartObjects("Chart 1").Select
  With ActiveChart.SeriesCollection(1)
    vCategories = .XValues
    For iCategory = 1 To UBound(vCategories)
      Set rCategory = rPatterns.Find(What:=vCategories(iCategory))

      .Points(iCategory).MarkerForegroundColor = rCategory.Interior.Color
    Next
  
  End With
End Sub

 

[KenU]

This is just a guess, but I suspect that there has been a change in the object model which makes rCategory an invalid name. Try replacing all occurrences of rCategory with a different name like rngCat.

Hope that helps.

Regards,
Ken

 

[gdesreu]

Hi Ken,

I gave it a try but it still gives me the same error. At first I thought it might be because I got a new PC but my old files still run the code just fine on my new PC. Its just when I try it on a new file. I even copied the chart from a working file and pasted it into a new file and I got the error. Its gotta be something I'm doing differently between the old files and new, but I'm just not seeing it.

Thanks for the help.

 

[KenU]

I don't know how to help any further without some additional understanding of your problem. Specifically, what data is in HDrange, what is the chart type, etc. Some sample data would be very helpful.

Regards,
Ken