添加然後參考系列收集

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 
'...