VBA删除图表系列

Question

我的图表包含一些无关的系列。这些系列中都包含“系列”一词（例如“Series1”，“Series2”），而不是描述性名称。

有人可以提供执行此伪代码的VBA程序：

  

在图表1中，如果任何系列名称包含单词“series”，请将其删除       如果不是那么什么都不做

Answer 1

Sub DeleteSeriesWith_Series_InName()
  Dim iSrs As Long
  With ActiveChart
    For iSrs = .SeriesCollection.Count To 1 Step -1
      If InStr(LCase$(.SeriesCollection(iSrs).Name), "series") > 0 Then
        .SeriesCollection(iSrs).Delete
      End If
    Next
  End With
End Sub

向后计数系列，因为删除系列会更改后面任何系列的序列号。