生成图表中的代码如下,X轴设置了日期格式为 dd-hh:mm 但实际显示的还是长日期,请参考图的X轴日期。
For r As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
'Series.X(r) = t.Rows(r)("Time") '指定水平坐标,为table中的时间数据
Series.X(r) = r
Series.Y(r) = t.Rows(r)(c.Name) '指定垂直坐标,为table中的各列数据
If r Mod 60 = 0 Then ' 因为担心日期时间过密,每隔60个,X轴显示文本,但数据是保持连续的.
Chart.AxisX.SetValueLabel(r, t.Rows(r)("Time")) '指定显示的文字
Chart.AxisX.DateType = True '明确指定X轴是日期型
Chart.AxisX.AnnoFormatString = "dd-hh:mm" '指定日期标示格式
Chart.AxisX.GridMajorVisible = False
End If
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
此主题相关图片如下:捕获.jpg