1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub Test()
Ch1.Series("Prix").IsXValueIndexed = True
Ch1.Series("Tend").IsXValueIndexed = True
Ch1.Series("Prix").Points.AddXY(CDate("2021-01-01").ToLongDateString, 10)
Ch1.Series("Prix").Points.AddXY(CDate("2021-01-02").ToLongDateString, 12)
Ch1.Series("Prix").Points.AddXY(CDate("2021-01-03").ToLongDateString, 20)
Ch1.Series("Prix").Points.AddXY(CDate("2021-01-04").ToLongDateString, 25)
'Ch1.Series("Tend").Points.AddXY(CDate("2021-01-01").ToLongDateString, DBNull.Value)
'Ch1.Series("Tend").Points.AddXY(CDate("2021-01-02").ToLongDateString, 13)
'Ch1.Series("Tend").Points.AddXY(CDate("2021-01-03").ToLongDateString, 13.5)
'Ch1.Series("Tend").Points.AddXY(CDate("2021-01-04").ToLongDateString, 16)
Ch1.Series("Prix").Points(2).MarkerSize = 15
Ch1.Series("Prix").Points(2).MarkerStyle = MarkerStyle.Star6
Ch1.Series("Prix").Points(2).MarkerColor = Color.DarkBlue
End Sub |
Partager