添加然后参考SeriesCollection

Question

我有一个代码可以创建2张新表。然后它应该从新表格中绘制一个新的系列集合。我设法使用ActiveSheet等，但新的SeriesCollection是错误的图表类型。我想给新系列集合uppon创建一个工作名称。怎么样？

Dim ser As SeriesCollection
Set ser = ch.chart.SeriesCollection.Add'---> ERROR HERE

ser.Name = "='" & nshn & "_Table'!$H$2:$K$2"
ser.XValues = "='" & nshn & "_Table'!$B$6:$B$38"
ser.Values = "='" & nshn & "_Table'!$C$6:$C$38"

Answer 1

试试这个：

Dim ser As Series
set ser = ch.chart.SeriesCollection.NewSeries
'...