Set charttest = xapp.Worksheets(1).ChartObjects.Add(25, 110, 400, 300)
charttest.Chart.ChartType = xlXYScatterSmoothNoMarkers
i = Sheets("sheet1").UsedRange.Columns.Count
      charttest.Chart.SetSourceData Source:=Sheets("Sheet1").Range("A1:chr(64+i) " & 107), PlotBy _
        :=xlColumns

如上图中range（。。。）里的红色语句，我就是想根据excel动态增加列的数据（比如已经有B列，C列数据，我继续增加列的数据，就会产生D列、。。。Z列），来绘制图表，但是选择数据源的时候，那块总是出错，求教高手指导应该如何编写