excel - VBA确定系列计数和删除

Question

我有一些代码可以使用命名范围创建动态图表。该图表应该只有 5 个系列，但由于某种原因，它创建的不仅仅是这个。因此，我想确定图表有多少系列，并删除 SeriesCollection(5) 以上的所有系列。我确信我这样做的方式非常低效，并且已经崩溃了好几次(由于 Invalid Parameter 错误)。如何以有效的方式编写此任务，而无需处理错误？我目前使用的代码是:

With ActiveChart
    If .SeriesCollection.Count = 6 Then
       .SeriesCollection(6).Delete
    End If
    If .SeriesCollection.Count = 7 Then
       .SeriesCollection(6).Delete
       .SeriesCollection(7).Delete
    End If
    If .SeriesCollection.Count = 8 Then
       .SeriesCollection(6).Delete
       .SeriesCollection(7).Delete
       .SeriesCollection(8).Delete
    End If
End With

Answer 1

照顾这些行:

If .SeriesCollection.Count = 7 Then

你删除 SeriesCollection(6)执行得很好。但是，集合的工作方式是顺序的，所以 SeriesCollection(7) 是什么？下移到 (6)点。然后，当你去删除 (7)它不再存在，您会收到错误消息。尝试这个:

If .SeriesCollection.Count = 7 Then

   .SeriesCollection(7).Delete

   .SeriesCollection(6).Delete

End If

If .SeriesCollection.Count = 8 Then

   .SeriesCollection(8).Delete

   .SeriesCollection(7).Delete

   .SeriesCollection(6).Delete

End If

让我们知道这是否有效。