VBA删除图表系列 [英] VBA deleting chart series

问题描述

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

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

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

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

在图1中，如果任何系列名称包含单词 series，请将其删除。

如果不要然后什么也不做

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

推荐答案

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.

这篇关于VBA删除图表系列的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！