Если бы Вы объяснили принцип покраски Маши, то, возможно, мы бы придумали вариант и без макроса.
А так - вот такой вариант
[vba]Код
Sub Макрос3()
a_ = Selection.Address
r_ = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To r_
If Range("A" & i).Font.ColorIndex = 3 Then
ActiveSheet.ChartObjects("Диаграмма 1").Activate
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(91, 155, 213)
ActiveChart.SeriesCollection(1).Points(i - 1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
Exit For
End If
Next i
Range(a_).Select
End Sub
[/vba]