You have to make some adjustments to the code. It’s probably easiest to select the chart on its sheet before running the code, so you need to specify the sheet that contains the formatted range. Also you need to cycle through the series in the chart.

Sub ColorByValue()
  Dim rPatterns As Range
  Dim iPattern As Long
  Dim vPatterns As Variant
  Dim iSrs As Long
  Dim iPoint As Long
  Dim vValues As Variant
  Dim rValue As Range 

  '' Specify sheet containing the formatted range
  Set rPatterns = Worksheets("Formats").Range("A1:A4")
  vPatterns = rPatterns.Value

  '' Cycle through all series in chart
  '' Alternatively identify intended series as, e.g.,
  '' SeriesCollection(5) or SeriesCollection("Series Name")
  For iSrs = 1 To ActiveChart.SeriesCollection.Count
    With ActiveChart.SeriesCollection(iSrs)
      vValues = .Values
      For iPoint = 1 To UBound(vValues)
        For iPattern = 1 To UBound(vPatterns)
          If vValues(iPoint) < = vPatterns(iPattern, 1) Then
            .Points(iPoint).Interior.ColorIndex =
                _ rPatterns.Cells(iPattern, 1).Interior.ColorIndex
            Exit For
          End If
        Next
      Next
    End With
  Next
End Sub

What I am attempting to do is to automate a sort of supplier KPI “steering wheel”, so each segment of my pie chart, whilst sized according to weighting rather than value, is scored individually and against differing criteria. If I can get this working it will save hours and hours every month!!

Many many thanks,
Katie

You might be trying to squeeze more meaning into your pie chart than is possible to extract. But anyway, what you want is possible, though it takes a more complicated algorithm. Hang tight and I’ll write it up in a new post.

I am very new to VBA and this has been amazingly instructive & helpful!!

I would love to be able to adapt the original code so that I can use a different range to assign the correct colour for each different chart point in my pie chart. I don’t know how to select each point individually and then move on to the next one, rather than loop through all of the points assessing them all against the same range. Can you help me?

Thanks so much!!
Katie