“Neither worked”… The code ran for me, though it didn’t match the colors exactly. Do the labels in the patterns range exactly match the series names (spelling and capitalization)?

Excel 2007+ uses different chart formatting syntax than I wrote about.

Try this variation:

Sub ColorBySeriesName()
  Dim rPatterns As Range
  Dim iSeries As Long
  Dim rSeries As Range
  Dim MyChart As Chart

  Set rPatterns = Sheets("DATA").Range("C19:C25")
  Set MyChart = Sheets("DATA").ChartObjects("IA IT PROJECTS").Chart
  With MyChart
    For iSeries = 1 To .SeriesCollection.Count
      Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Name, LookAt:=xlWhole)
      If Not rSeries Is Nothing Then
        .SeriesCollection(iSeries).Format.Fill.ForeColor.RGB = rSeries.Interior.Color
      End If
    Next
  End With
End Sub

I can’t thank you enough for the help on your site. I have successfully built the Gantt Chart for Repeated Tasks and now need the bar for each task to be a different color based on selections set by user. (In other words, I do not want to individually format each bar)

I’ve attempted the VBA format by Series Name as well as by Category Label and haven’t gotten anywhere. I was thinking it may be due to the layers of different series in the Gantt chart? Anyhow, here is the current code I’m working with (one Sheet named DATA and one Chart named IA IT PROJECTS):

Sub ColorBySeriesName()
Dim rPatterns As Range
Dim iSeries As Long
Dim rSeries As Range

Set rPatterns = Sheets(“DATA”).Range(“C19:C25″)
ActiveSheet.ChartObjects(“IA IT PROJECTS”).Activate
With ActiveChart
For iSeries = 1 To .SeriesCollection.Count
Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Name, LookAt:=xlWhole)
If Not rSeries Is Nothing Then
.SeriesCollection(iSeries).Interior.ColorIndex = rSeries.Interior.ColorIndex
End If
Next
End With
End Sub

I had first color coded the 7 task names (AKA Ambulance 1, 2, 4, 7 from your charting tutorial) but thought maybe I should color code the associated number – neither worked.

Currently, this is my error: “Run-time error ’5′: Invalid procedure call or argument”

As you can probably guess, this is my first experience with VBA.

Thank you in advance.

Sincerely,
Leah

With ActiveChart
  For iSeries = 1 To .SeriesCollection.Count
    Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Name, LookAt:=xlWhole)
    If Not rSeries Is Nothing Then
      .SeriesCollection(iSeries).Interior.ColorIndex = rSeries.Interior.ColorIndex
    End If
  Next
End With

Dim rPatterns As Range
Dim iSeries As Long
Dim rSeries As Range

‘ Set location of category names and their colors
Set rPatterns = ActiveWorkbook.Worksheets(“seriescolors”).Range(“A1:A19″)

/*Then there’s code that generates the chart*/

With ActiveChart

For iSeries = 1 To .SeriesCollection.Count
Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Name, LookAt:=xlWhole)

.SeriesCollection(iSeries).Interior.ColorIndex = rSeries.Interior.ColorIndex
Next

If Not rSeries Is Nothing Then
.SeriesCollection(iSeries).Interior.ColorIndex = rSeries.Interior.ColorIndex
End If
End With

It gives me an error at “.SeriesCollection(iSeries).Interior – “Object Variable or With Block Not Set” and the “iSeries” is coming up as 1. Any ideas what might be wrong here? Let me know if I can give more detail. Thanks!!!

I’ve made no effort to make a mobile version of my blog. That said, my Droid displays my website with a minimum of distortion. It’s probably an incompatibility with the iPhone browser.