I want to change the colour of a data point according
to its value. How can I do it?
You can use the PointColor property evaluating each Point's value and applying your own
colours:
Private Sub Form_Load()
Dim t As Integer
TChart1.AddSeries scPoint
For i = 1 To 14
TChart1.Series(0).AddXY i, Rnd(i) * 100, "", clTeeColor
Next i
TChart1.Series(0).ColorEachPoint = True
For t = 0 To TChart1.Series(0).Count - 1
If TChart1.Series(0).YValues.Value(t) < 50 Then 'put your threshold here
TChart1.Series(0).PointColor(t) = vbRed
Else
TChart1.Series(0).PointColor(t) = vbBlue
End If
Next t
End Sub