使用VBA隐藏图表中的系列

Excel中很多图表相关的操作，并不能通过录制宏得到代码，这个场景中，如下希望开发代码实现自动化，就会无从下手，其实只要找到相关的属性和方法，代码可能并不复杂。

Excel的线图如下所示，其中有三个系列（Test1,Test2和Test3）。

在【选择数据】对话框中取消【Test1】勾选可以隐藏系列Test1。

隐藏系列Test1之后的图表，如下图所示。

通常认为由于系列（Series）对象没有Visible属性，所以无法直接实现隐藏系列，建议通过设置线和数据点的颜色来实现隐藏，这个变通方案比较复杂，需要考虑图表区域的背景色，如果背景色不是纯色填充，那么可能就无法实现隐藏了。其实仔细研究一下对象模型，系列（Series）对象有相关的属性可以用来便捷地实现这个需求。

示例代码如下。

Sub HiddenSeries()
    Dim chtSer As Series
    Set chtSer = ActiveSheet.ChartObjects(1).Chart.FullSeriesCollection(1)
    chtSer.IsFiltered = True
End Sub

【代码解析】
第3行代码获取系列Test1，注意其中ChartObjects(1).Chart.FullSeriesCollection(1)的用法，而不是ChartObjects(1).FullSeriesCollection(1)
第4行代码设置系列的IsFiltered属性实现隐藏系列。