Sub Закрасить_плашки()

    Dim objChart As Chart, objSeries As Series, objPoint As Point
    Dim r As Long, lr As Long
    
    Application.ScreenUpdating = False
    Set objChart = ActiveSheet.Shapes("Диаграмма 1").Chart
    Set objSeries = objChart.SeriesCollection(1)
    objChart.ApplyDataLabels xlDataLabelsShowLabel
    lr = Cells(Rows.Count, "E").End(xlUp).Row
    For Each objPoint In objSeries.Points
        If objPoint.HasDataLabel = True Then
            r = 0
            On Error Resume Next
            r = WorksheetFunction.Match(objPoint.DataLabel.Caption, Range("C1:C" & lr), 0)
            On Error GoTo 0
            If r <> 0 Then
                objPoint.Format.Fill.ForeColor.RGB = Cells(r, "F").DisplayFormat.Interior.Color
            End If
        End If
    Next objPoint
    objChart.ApplyDataLabels xlDataLabelsShowLabel, , , , , False
    Application.ScreenUpdating = True

End Sub