|
#2
yuma2022-08-31 11:10
 程序代码：Sub a() ActiveChart.ChartType = xlXYScatterSmooth Charts.Add ActiveChart.SetSourceData Source:=Sheets("sheet1").Range("a1:b100") Charts.Add ActiveChart.SetSourceData Source:=Sheets("sheet1").Range("d1:e100") End Sub |
我利用VB在excel生成折线，A1:B100 单元格在CHART1生成一根线，d1:e100 单元格CHART1生成一根线。都在CHART1生成。代码如下
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("sheet1").Range("a1:b100")
ActiveChart.SetSourceData Source:=Sheets("sheet1").Range("d1:e100")
却发现只生成了一根线，只生成了d1:e100，而a1:b100没有生成。求解。