Scatterplot chart (matrix) with conditional format

I want to create a scatter plot graph with conditional format.
Each point should have a color based on the amount of involvement
Also is it possible to create this without adding each point individually?

Thanks for your reply
However if i would implement this solution I am not able to label each point in the graph as seen in the example.

Perhaps you can give me one example in my attached sheet so i can see if i understand correctly.

Hello
With VBA?

Try this macro for the example posted

Option Explicit

Sub Like_Cells_Colors()
Dim ur As Long, clr As Integer
Dim vAddress As Range, i As Long, s As Long
ur = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 1
Range("A2:A" & ur).Interior.ColorIndex = xlNone
For i = 2 To ur
  If Cells(i, 2) < 6 Then
    clr = 3
  ElseIf Cells(i, 2) >= 6 And Cells(i, 2) < 9 Then
    clr = 15
  ElseIf Cells(i, 2) >= 9 Then
    clr = 4
  End If
  Cells(i, 1).Interior.ColorIndex = clr
Next i
'
ActiveSheet.ChartObjects(1).Activate
For s = 1 To ActiveChart.SeriesCollection.Count - 1
  With ActiveChart.SeriesCollection(s)
    Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(0), "!")(1))
    For i = 1 To vAddress.Cells.Count
      .Points(i).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(vAddress.Cells(i).Interior.ColorIndex)
    Next i
  End With
Next s
Cells(1, 1).Select
End Sub

Let me know. Hello,
Mario

Hello
I think is better

Option Explicit

Sub Like_Cells_Colors()
Dim ur As Long, clr As Integer
Dim vAddress As Range, i As Long, s As Long
ur = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 1
Range("A2:A" & ur).Interior.ColorIndex = xlNone
For i = 2 To ur
  If Cells(i, 2) < 6 Then
    clr = 3
  ElseIf Cells(i, 2) >= 6 And Cells(i, 2) < 9 Then
    clr = 15
  ElseIf Cells(i, 2) >= 9 Then
    clr = 4
  End If
  Cells(i, 1).Interior.ColorIndex = clr
Next i
'
ActiveSheet.ChartObjects(1).Activate
For s = 1 To ActiveChart.SeriesCollection.Count - 1
  With ActiveChart.SeriesCollection(s)
    Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(0), "!")(1))
    For i = 1 To vAddress.Cells.Count
      .Points(i).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(vAddress.Cells(i).Interior.ColorIndex)
      ActiveChart.SeriesCollection(s).DataLabels.Select
      With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = ThisWorkbook.Colors(vAddress.Cells(i).Interior.ColorIndex)
        .Transparency = 0
        .Solid
      End With
    Next i
  End With
Next s
Range("A2:A" & ur).Interior.ColorIndex = xlNone
Cells(1, 1).Select
End Sub

Let me know. Hello,
Mario

I am unfamilliar with macro's. Is this the only way? I tried to copy and paste the text, but when I change something it does not change in the graph.

Hello
Associate the macro with a button and click on it every time there is a change in the sheet.
It is possible to make the change automatic if the data will always be in columns A and B (I see to adapt the code and then publish it) but if you are unfamiliar with VBA it is best to stop here.

Hello,
Mario

Hello
This code is to be entered in the class module of the sheet concerned.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long, clr As Integer
Dim vAddress As Range, i As Long, s As Long
ur = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 1
If Not Intersect(Target, Range("A2:C" & ur)) Is Nothing Then
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  For i = 2 To ur
    If Cells(i, 2) < 6 Then
      clr = 3
    ElseIf Cells(i, 2) >= 6 And Cells(i, 2) < 9 Then
      clr = 15
    ElseIf Cells(i, 2) >= 9 Then
      clr = 4
    End If
    Cells(i, 1).Interior.ColorIndex = clr
  Next i
'
  ActiveSheet.ChartObjects(1).Activate
  For s = 1 To ActiveChart.SeriesCollection.Count - 1
    With ActiveChart.SeriesCollection(s)
      Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(0), "!")(1))
      For i = 1 To vAddress.Cells.Count
        .Points(i).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(vAddress.Cells(i).Interior.ColorIndex)
        ActiveChart.SeriesCollection(s).DataLabels.Select
        With Selection.Format.Fill
          .Visible = msoTrue
          .ForeColor.RGB = ThisWorkbook.Colors(vAddress.Cells(i).Interior.ColorIndex)
          .Transparency = 0
          .Solid
        End With
      Next i
    End With
  Next s
  Range("A2:A" & ur).Interior.ColorIndex = xlNone
  Application.EnableEvents = True
  Application.ScreenUpdating = True
  Cells(1, 1).Select
End If
End Sub

Any variation in the interval from A2 to C and the last line evaluated will bring about an adjustment of the Graph.
I am attaching your file with the inserted macro.
Let them know. Hello,
Mario

I got it to work with the data series!!!!
Now when I change the label for a data point and I also change the cell on which conditional format is applied, the label is set back to the original value.
How can I prevent this from happening?

I attached an excel file with my problem. When I change involvement in stakeholder interest tab, the name in the graph changes.
Even though I linked the label to the specific name.