有可能是VB里没有定义xlXYScatterSmooth这个值引起的问题。
你将
ActiveChart.ChartType = xlXYScatterSmooth
修改成
ActiveChart.ChartType = 72
试一下。
