Sub blah()
Set myPoints = Sheets("v.B KW CP").ChartObjects("Graf 1").Chart.FullSeriesCollection(1).Points
For i = 2 To myPoints.Count
With myPoints(i).Format.Line
If myPoints(i).Top > myPoints(i - 1).Top Then
.ForeColor.RGB = RGB(255, 0, 0)
Else
.ForeColor.RGB = RGB(0, 112, 192)
End If
End With
Next i
End Sub