Comments on: VBA Conditional Formatting of Charts by Category Label

By: Jon Peltier

Jon Peltier — Fri, 12 Feb 2010 21:20:30 +0000

Tyler -

Make sure vCategories(iCategory) (the ith X axis label) actually exists in the rPatterns range.

By: tyler

tyler — Fri, 12 Feb 2010 18:23:25 +0000

I’m trying to adapt this to a pivot chart that i’m making, so i’ve made just a few minor changes, which i hope were correct, but i’m getting the Run time error ‘91′ Object variable with block variable not set, but when i debug i’m getting it for the line “.Points(iCategory).Interior.ColorIndex = rCategory.Interior.ColorIndex”

any ideas?
Sub ColorByCategoryLabel()

Dim rPatterns As Range
Dim iCategory As Long
Dim vCategories As Variant
Dim rCategory As Range
Dim chtob As ChartObject

Set rPatterns = ActiveSheet.Range(“H6:H7″)
For Each chtob In ActiveSheet.ChartObjects
With chtob.Chart.SeriesCollection(1)
vCategories = .XValues
For iCategory = 1 To UBound(vCategories)
Set rCategory = rPatterns.Find(What:=vCategories(iCategory))
.Points(iCategory).Interior.ColorIndex = rCategory.Interior.ColorIndex
Next
End With
Next
End Sub

By: Jon Peltier

Jon Peltier — Sun, 13 Dec 2009 21:46:30 +0000

Jorge -

I see what you were saying, I just didn’t have any code before.

You may get this error because rCategory is undefined, for example, if the category label is not present in the rPatterns range. Make sure everything is spelled the same, including leading and trailing blanks.

By: Jorge

Jorge — Sun, 13 Dec 2009 19:27:09 +0000

Hi Jon, thanks for the quick response. The code that I am using is:

Sub ColorByCategoryLabel()
  Dim rPatterns As Range
  Dim iCategory As Long
  Dim vCategories As Variant
  Dim rCategory As Range
  Dim chtob As ChartObject

  Set rPatterns = ActiveSheet.Range("A1:A4")
  For Each chtob In ActiveSheet.ChartObjects
    With chtob.Chart.SeriesCollection(1)
      vCategories = .XValues
      For iCategory = 1 To UBound(vCategories)
        Set rCategory = rPatterns.Find(What:=vCategories(iCategory))
        .Points(iCategory).Interior.ColorIndex = rCategory.Interior.ColorIndex
      Next
    End With
  Next
End Sub

Which I've copied and pasted in VB. I thought with this code you did not need to have any charts selected. Despite that I still get the same error: Run time error '91' Object Variable or With block variable not set I am sure this must be an obvious mistake on my part but for the life of me I cannot see it. Could you please help me out? Cheers Jorge

By: Jon Peltier

Jon Peltier — Sun, 13 Dec 2009 18:27:25 +0000

Jorge -

In the page you’ve cited, the chart has to be selected. Note the line:

With ActiveChart.SeriesCollection(1)

By: Jorge

Jorge — Sun, 13 Dec 2009 09:30:15 +0000

Hi Jon,

I am trying to use this last version of the code (where no chart needs to be selected) and I keep getting the following error message:

Object Variable or With block variable not set

I am trying to use it in a spreadsheet identical to the one in your example so no additional complications there. Could you please point me towards the solution?

Thanks,

Jorge

By: Steven

Steven — Mon, 20 Jul 2009 15:46:52 +0000

Thanks for all your help Jon, I got the thing working!!
I found what i needed on your post “VBA Conditional Formatting of Charts by Series Name”. But the last code was very usefull as well!

By: Jon Peltier

Jon Peltier — Mon, 20 Jul 2009 14:39:28 +0000

The code was written for one chart, the active chart. However, the following will make it work for all charts on the activesheet, and no chart needs to be selected:

Sub ColorByCategoryLabel()
  Dim rPatterns As Range
  Dim iCategory As Long
  Dim vCategories As Variant
  Dim rCategory As Range
  Dim chtob As ChartObject

  Set rPatterns = ActiveSheet.Range("A1:A4")
  For Each chtob In ActiveSheet.ChartObjects
    With chtob.Chart.SeriesCollection(1)
      vCategories = .XValues
      For iCategory = 1 To UBound(vCategories)
        Set rCategory = rPatterns.Find(What:=vCategories(iCategory))
        .Points(iCategory).Interior.ColorIndex = rCategory.Interior.ColorIndex
      Next
    End With
  Next
End Sub

By: Steven

Steven — Mon, 20 Jul 2009 14:27:45 +0000

Thanks for your quick reply Jon. I’m afraid I’m no further with this problem though. I tried it with your sample data on the top of this page and the same thing happens. If you try to merge chart 1 & 2 in a bar chart, then only the first serie (chart 1) receives the defined colors. The second serie gets the standard excel color, although the labels refer to the exact same colum.
I’m sorry if I’m asking stupid questions here but I’m still relatively new at this stuff and rather intimidated by VBA script. I would be extremely happy if I can get this to work though. Any chance of a more noob-proof explanation?
Thanks a million!!

Steven.

By: Jon Peltier

Jon Peltier — Mon, 20 Jul 2009 12:59:17 +0000

If the label isn’t found in the color range, then rCategory is nothing, so the error comes from the part after the “=”. If you have not selected a chart, thenthe part in front of the “+” would cause a problem, but this error should occur a few lines higher, at “With ActiveChart.SeriesCollection(1)”.