Gradient Conditional Formatting on Scatter Chart

HI
Try the macro below to bind to a (non-ActiveX) button or form.

Option Explicit

Sub ColorsByFC()
Dim vAddress As Range, i As Long
ActiveSheet.ChartObjects(1).Activate
With ActiveChart.SeriesCollection(1)
  Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
  For i = 1 To vAddress.Cells.Count
    .Points(i).Format.Fill.ForeColor.RGB = Cells(i + 2, 3).DisplayFormat.Interior.Color
    .Points(i).Format.Line.ForeColor.RGB = Cells(i + 2, 3).DisplayFormat.Interior.Color
  Next i
End With
Cells(1, 1).Select
End Sub

Since there are so many data it will take a few seconds but I think it will get the result you are looking for.
Let me know.
Hello,
Mario

You are wonderful. Thank you.
Attachment 840079

Hello and thank you for the feedback.

Ciao,
Mario