VBA deleting chart series [closed]

问题

Closed. This question needs details or clarity. It is not currently accepting answers.

---

Want to improve this question? Add details and clarify the problem by editing this post.

Closed 5 years ago.

My chart contains some extraneous series. These series all contain the word "series" in them (e.g., "Series1", "Series2") rather than descriptive names.

Can someone please provide a VBA procedure that executes this Pseudocode:

In chart 1 if any series name contains the word "series" delete it.
If not then do nothing

回答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

Count series backwards, because deleting a series changes the series numbers of any series after it.

来源：https://stackoverflow.com/questions/24661467/vba-deleting-chart-series