随便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
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里面!
line x(i-1),y(i-1),x(i),y(i)
next
就建个Picture,然后用PSet和Line画
很简单的
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
唉,把你的数组赋值给我的数组aryAvgX()不就可以么,
我画的是直线,因为数据一样么,
你改变数组的值就可以是各种曲线了,
不行可以去看MSDN。
^_^
我其实是两个数组啊,怎么赋给你的aryAvgX()啊,小弟愚钝,你能用我的数组给个实例吗?