随便Copy一段,可以参考
^_^Private Sub DrawXChart()
Private aryAvgX()  As Variant
Dim i As Integer, j As Singlej = CLng(5.6 * 100) 'error
For i = 1 To 25
    aryAvgX(i, 1) = IIf(aryAvgX(i, 1) <> 0, CLng(aryAvgX(i, 1) * 100 - j) / 100, aryAvgX(i, 1))
    aryAvgX(i, 2) = (CLng(5.9 * 100) - j) / 100
    aryAvgX(i, 3) = (CLng(5.75 * 100) - j) / 100
    aryAvgX(i, 4) = (CLng(5.6 * 100) - j) / 100
Next
With Me.chtX
    .RowCount = 25
    .ColumnCount = 4
    .ChartData = aryAvgX
    .Column = 1
    .ColumnLabel = "Data"
    .Column = 2
    .ColumnLabel = "UCL"
    .Column = 3
    .ColumnLabel = "AVG"
    .Column = 4
    .ColumnLabel = "LCL"
    .Visible = True
End WithEnd Sub

解决方案 »

  1.   

    不对啊,我只要知道怎么处理我数组里面的数据到MSChart里面啊,你的返回的结果是4根水平线啊
      

  2.   

    x轴(公用)  y轴(点)           y轴(线)0     10              9.103431363
    232     8.333333333     8.543950715
    294     6.666666667     8.394434335
    383     8.333333333     8.179805984
    506     5              7.883184778
    524     9.090909091     7.839776797
    647     11.11111111     7.543155592
    717     8.333333333     7.374346775
    828     5.263157895     7.106664224
    1032     6.451612903     6.614707103现在我已经都把他们保存到3个数组里面了,但就是不知怎么把他们加到MSChart里面!
      

  3.   

    for i-1 to 10 
     line x(i-1),y(i-1),x(i),y(i)
    next
      

  4.   

    如果是线和点的图表
    就建个Picture,然后用PSet和Line画
    很简单的
      

  5.   

    不对啊,我只要知道怎么处理我数组里面的数据到MSChart里面啊,你的返回的结果是4根水平线啊
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    唉,把你的数组赋值给我的数组aryAvgX()不就可以么,
    我画的是直线,因为数据一样么,
    你改变数组的值就可以是各种曲线了,
    不行可以去看MSDN。
    ^_^
      

  6.   

    dwei(大卫),你好
    我其实是两个数组啊,怎么赋给你的aryAvgX()啊,小弟愚钝,你能用我的数组给个实例吗?