不用多个,一个mschart中使用两系列即可。 两个量程不一样,以最大量程做Y轴总量程。Private Sub Form_Load() Dim i As Integer, jls As Integer Dim Values(1 To 15, 1 To 3) For i = 1 To 15 Values(i, 1) = "T" & Format(i, "00") Next i
For i = 1 To 10 Values(i, 2) = Rnd * 100 Values(i, 3) = Rnd * 20 Next i
两个量程不一样,以最大量程做Y轴总量程。Private Sub Form_Load()
Dim i As Integer, jls As Integer
Dim Values(1 To 15, 1 To 3) For i = 1 To 15
Values(i, 1) = "T" & Format(i, "00")
Next i
For i = 1 To 10
Values(i, 2) = Rnd * 100
Values(i, 3) = Rnd * 20
Next i
MSChart1.chartType = VtChChartType2dLine
MSChart1.ColumnCount = 2
MSChart1.ChartData = Values
End Sub