Sub setFormatCharts()
    'Цвета
    Dim clrGreen As Long: clrGreen = RGB(0, 142, 64)
    Dim clrGreenLight As Long: clrGreenLight = RGB(169, 225, 169)
    Dim clrYellow As Long: clrYellow = vbYellow
    Dim clrRed As Long: clrRed = RGB(192, 0, 0)
    
    For Each sl In ActiveWindow.Selection.SlideRange
        For Each sh In sl.Shapes
            If sh.HasChart Then
                For i = 1 To sh.Chart.SeriesCollection.Count
                    For j = 1 To sh.Chart.SeriesCollection(i).Points.Count
                        With sh.Chart.SeriesCollection(i).Points(j)
'                            On Error Resume Next
                            Select Case .DataLabel.Text
                    'Для Ваших условий
    '                            Case Is < 0: .Format.Fill.ForeColor.RGB = clrRed
    '                            Case Is > 0: .Format.Fill.ForeColor.RGB = clrGreen
                    
                    'Если будет больше условий
                    Case Is < -10: .Format.Fill.ForeColor.RGB = clrRed
                    Case -10 To 0: .Format.Fill.ForeColor.RGB = clrYellow
                    Case 0 To 10: .Format.Fill.ForeColor.RGB = clrGreenLight
                    Case Is > 10: .Format.Fill.ForeColor.RGB = clrGreen
                            End Select
                        End With
                    Next j
                Next i
            End If
        Next sh
    Next sl
End Sub