相同的vba代码导致生成不同的graphics

情况

我有简单的VBA代码循环通过列5-10，并创build来自第3-21行的数据graphics，设置标题，并设置x轴的值。

并发症

代码会根据列生成不同的graphics，而陌生人却会根据我运行macros的次数，从同一列生成不同的graphics。

码

Sub Macro6() For i = 5 To 10 ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.HasTitle = True ActiveChart.SetSourceData Source:=Range(Cells(3, i), Cells(21, i)) ActiveChart.ChartTitle.Text = Cells(1, i) ActiveChart.SeriesCollection(1).XValues = "=Chart_data!$B$3:$B$21" Next i End Sub