mschart图形问题

来源:百度知道 编辑:UC知道 时间:2024/06/04 17:16:36
现在过程中遇到一问题,向您请教,横坐标为日期型,纵坐标为数值,
绘出点时是将日期转化为了双精度行的,然后FORMAT日期型显示在X轴上,
我需要在绘出的图形上标出该点的坐标。如:(2008/10/1,12),或者只让其显示纵坐标,请问如何做

Private Sub Form_Click()
Dim A(5) As String'存日期,数组的维数等于你的实际日期数减1
Dim b(5) As Single'存数字,与日期相对应
Dim i As Integer
For i = 0 To 5
A(i) = Chr(64 + i)'换成你相应的日期
b(i) = 78 + i * 2'换成你相应的数值
Next i

With MSChart1
.RowCount = 6'换成实际的日期数,有几个日期就换成几
.ColumnCount = 1'不要改变,就是1
For i = 1 To 6'换成实际的日期数,有几个日期就换成几
.Row = i
.RowLabel = A(i - 1)
.Data = b(i - 1)
Next i
End With
End Sub