Excel VBA图表被错误地复制为不同的图表types

我一直在敲我的头试图了解如何以及为什么我的Excel VBA代码生成一些重复的图表。 首先，当我将macros作为独立运行时，图表生成完美，没有问题，但是图表是在第5个模块中创build的，当我从头到尾运行整个过程时，我得到一个重复的图表。 我正在尝试创build一个堆叠的柱状图（它自己可以正常工作），但是我也得到了一个与其中的信息相同的常规条形图。 这也是另一个图表，这是一个区域图表。 我不确定是否有内存正在进行内存或为什么第二个图表被创build。 数据名称的范围和设置如下列。 指定的范围是“FTE_by_Co_Data”

期间（a1）CoA FTE（b1）CoB FTE（c1）（a2）1月15日（b2）15（c2）30等

以下是名称范围和图表创build的代码。

'Name the Data Range for the Chart Source Sheets("FTE_by_Co").Select Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Names.Add Name:="FTE_by_Co_Data", RefersTo:=Selection Sheets("FTE_by_Co").Select Range("FTE_by_Co_Data").Select 'Creating New Chart Dim StffChartObject2 As ChartObject Set StffChartObject2 = ActiveSheet.ChartObjects.Add(Left:=200, Top:=50, Width:=600, Height:=400) StffChartObject2.Chart.SetSourceData Source:=ActiveWorkbook.Sheets("FTE_by_Co").Range("FTE_by_Co_Data") StffChartObject2.Name = "FTECoChart" ActiveSheet.ChartObjects("FTECoChart").Activate ActiveChart.PlotBy = xlColumns ActiveChart.ChartType = xlColumnStacked ActiveChart.Legend.Select Selection.Position = xlRight 'Add Chart Title ActiveSheet.ChartObjects("FTECoChart").Activate StffChartObject2.Chart.HasTitle = True StffChartObject2.Chart.ChartTitle.Text = "Staffing-Time Phase by FTE (avg. 157 hr/mo)" 

再说一次，当我自己运行这个模块的时候，这个工作很好，但是当我从Mod 1到Mod 10（这是Mod 7）中依次运行它时，它总是创build一个不是堆叠条形图的复制图表。 是否有内存问题发生？ 或者是我的代码运行快速创build？ 我不知道为什么会这样。 预先感谢您的帮助。 -麦克风