Excel VBA：删除SeriesCollection不释放内存

我在这个macros中有一个内存泄漏。 我需要dynamic添加新的系列，所以我首先删除所有现有的系列，然后添加我需要的系列。 运行这个macros10000次导致大内存泄漏。

Sub Macro1() Dim Datarange As Range Dim i As Integer ActiveSheet.ChartObjects("Chart 1").Activate With ActiveChart Do While .SeriesCollection.Count > 0 .SeriesCollection(1).Delete Loop For j = 0 to 3 .SeriesCollection.NewSeries Next End With End Sub 

有任何想法吗？