吸海垂虹 我想作带坐标轴的曲线图该如何作？谢谢

Question

著是我以前做生產線效率圖時的一段代碼,使用了數據庫,但對mschart的控制和用數組是一樣的,有坐標的顯示,我想應該比完全用函數畫線要方便點
不知道對你有沒有幫助
Screen.MousePointer = 11
Insert_To_TmpTab '//調用自己的過程函數,把數據放倒臨時表裡.如果你用數組也是一樣的
MSChart1.chartType = 3  '//用線性圖
If Rs1.State = 1 Then Rs1.Close
Rs1.CursorLocation = adUseClient
If Rs1.State = 1 Then Rs1.Close
Rs1.Open "select  [Hour],Line_P1 ,Line_P2,Line_P3,Line_P4 ,Line_P5 ,Line_P6 from tmp_for_report order by [hour]", Cn1, adOpenForwardOnly, adLockReadOnly
If Not Rs1.EOF Then
    With MSChart1
       .Refresh
       .ColumnCount = 6
       .RowCount = Rs1.RecordCount
       For column = 1 To 6
           .column = column
           .ColumnLabel = "Line_" & CStr(column)
       Next
       
       For row = 1 To Rs1.RecordCount
           .row = row
           .RowLabel = CStr(Rs1.Fields(0).Value)
           For column = 1 To 6
              .column = column
              .row = row
              .Data = IIf(IsNull(Rs1.Fields("Line_p" & column).Value), 0, Rs1.Fields("Line_p" & column).Value)
           Next
           Rs1.MoveNext
           If Rs1.EOF Then Exit For
        Next
    End With
End If
Rs1.Close
Screen.MousePointer = 0