vsto绘图时数据删掉了，图形还在

tongkj

vsto（VB2010）绘图时数据删掉了，图形还在？不知道是不是代码问题，在VBA中录宏得到的代码1、使用以下代码：

1. <font size="3"><b>Function TongCurvesPlot(ByVal str As String)
   
2.         ''''错误待修改
   
3.         xlApp.ActiveSheet.Shapes.AddChart.Select()
   
4.         xlApp.ActiveChart.ChartType = 73
   
5.         xlApp.ActiveChart.SetSourceData(Source:=xlApp.Range("A1:F103"))
   
6.         xlApp.ActiveChart.PlotArea.Select()
   
7.         xlApp.ActiveChart.SeriesCollection(1).Values = xlApp.Range("A2:A103").Value
   
8.         xlApp.ActiveChart.SeriesCollection(1).XValues = xlApp.Range("B2:B103").Value
   
9.         xlApp.ActiveChart.SeriesCollection(2).Values = xlApp.Range("A2:A103").Value
   
10.         xlApp.ActiveChart.SeriesCollection(2).XValues = xlApp.Range("C2:C103").Value
    
11.         xlApp.ActiveChart.SeriesCollection(3).Values = xlApp.Range("A2:A103").Value
    
12.         xlApp.ActiveChart.SeriesCollection(3).XValues = xlApp.Range("D2:D103").Value
    
13.         xlApp.ActiveChart.SeriesCollection(4).Values = xlApp.Range("A2:A103").Value
    
14.         xlApp.ActiveChart.SeriesCollection(4).XValues = xlApp.Range("E2:E103").Value
    
15.         xlApp.ActiveChart.SeriesCollection(5).Values = xlApp.Range("A2:A103").Value
    
16.         xlApp.ActiveChart.SeriesCollection(5).XValues = xlApp.Range("F2:F103").Value
    
17.         '    xlApp.ActiveChart.SeriesCollection(6).Values = xlApp.Range("A2:A103")
    
18.         '    xlApp.ActiveChart.SeriesCollection(6).XValues = xlApp.Range("G2:G103")
    
19.         xlApp.ActiveChart.SeriesCollection.NewSeries()
    
20.         xlApp.ActiveChart.SeriesCollection(6).Name = xlApp.Range("Q1").Value
    
21.         xlApp.ActiveChart.SeriesCollection(6).XValues = xlApp.Range("P2:P500").Value
    
22.         xlApp.ActiveChart.SeriesCollection(6).Values = xlApp.Range("Q2:Q500").Value
    
23.         xlApp.ActiveChart.SeriesCollection.NewSeries()
    
24.         xlApp.ActiveChart.SeriesCollection(7).Name = xlApp.Range("S1").Value
    
25.         xlApp.ActiveChart.SeriesCollection(7).XValues = xlApp.Range("R2:R500").Value
    
26.         xlApp.ActiveChart.SeriesCollection(7).Values = xlApp.Range("S2:S500").Value
    
27.         Return False
    
28.     End Function</b></font>

复制代码

2、生成的图形如下

（显然粉色的数据已经删掉，但图形还在）；

3、看图形的数据，好像是数组？
=SERIES(aaa!$F$1,{#N/A,5.85819740536601,9.93071893295316,12.3379936060456,14.0638501105119,15.4166186539623,16.5336452904526,17.488201219471,18.3240287952852,19.0693482282431,19.7434332074757,20.3600357135108,20.9293143186328,21.4589879958429,21.9550611257956,22.4222977778852,22.8645426212539,23.284944386696,23.6861153695945,24.0702477609891,24.4392001156272,