Excel VBA图表SeriesCollection的IsFiltered设为False无法恢复显示问题

问题描述 #

日常使用VBA在Excel表格中创建两个互补折线图，两个图表的序列集合（SeriesCollection）数量一致，且ch1.SeriesCollection(i)与ch2.SeriesCollection(i)一一对应，核心需求如下：

• 两个图表中相同序号的序列绘图配色保持一致
• 通过VBA调用IsFiltered属性实现指定序列的隐藏与恢复（如隐藏除i=2外的所有序列）

异常表现 #

所有代码运行均符合预期，仅最后一句ch1.SeriesCollection(2).IsFiltered = False执行异常：执行ch1.SeriesCollection(2).IsFiltered = True可成功隐藏图表中的第2个序列，按逻辑将属性设为False应当恢复该序列显示，但实际并未生效。

原有完整代码 #

Sub Charts1()
    Dim sh1, chr1, chr2 As Variant
    On Error Resume Next
    Set sh1 = ActiveSheet
    sh1.Cells.Clear
    sh1.ChartObjects.Delete
    sh1.Range("B1:D1") = [{"A","B","C"}]
    sh1.Range("A2:A3") = [{"1";"2"}]
    sh1.Range("A2:A3").AutoFill Destination:=Range("A2:A12"), Type:=xlFillDefault
    sh1.Range("B2:D2").FormulaR1C1 = "1"
    sh1.Range("B3:B12").FormulaR1C1 = "=R[-1]C*1.02"
    sh1.Range("C3:C12").FormulaR1C1 = "=R[-1]C*1.04"
    sh1.Range("D3:D12").FormulaR1C1 = "=R[-1]C*1.06"
    sh1.Range("A1:A12,B1:D1").HorizontalAlignment = xlCenter
    sh1.Range("B2:D12").NumberFormat = "#,##0.000"
    
    Set ch1 = sh1.Shapes.AddChart2(227, xlLine).Chart
    ch1.SetSourceData Source:=Range("Data!$A$1:$D$12")
    ch1.Parent.Left = 50
    ch1.Parent.Top = 200
    Set ch2 = sh1.Shapes.AddChart2(227, xlLine).Chart
    ch2.SetSourceData Source:=Range("Data!$A$1:$D$12")
    ch2.Parent.Left = 450
    ch2.Parent.Top = 200
    ch1.SeriesCollection(1).Format.Line.ForeColor.RGB = RGB(255, 0, 0)
    ch1.SeriesCollection(2).Format.Line.ForeColor.RGB = RGB(0, 255, 0)
    ch1.SeriesCollection(3).Format.Line.ForeColor.RGB = RGB(0, 0, 255)
    ch2.SeriesCollection(1).Format.Line.ForeColor.RGB = RGB(255, 255, 0)
    ch2.SeriesCollection(2).Format.Line.ForeColor.RGB = RGB(0, 255, 255)
    ch2.SeriesCollection(3).Format.Line.ForeColor.RGB = RGB(255, 0, 255)
    c1s1color = ch1.SeriesCollection(1).Format.Line.ForeColor.RGB
    For i = 1 To ch2.SeriesCollection.Count
        ch2.SeriesCollection(1).Format.Line.ForeColor.RGB = ch1.SeriesCollection(1).Format.Line.ForeColor.RGB
        ch2.SeriesCollection(2).Format.Line.ForeColor.RGB = ch1.SeriesCollection(2).Format.Line.ForeColor.RGB
        ch2.SeriesCollection(3).Format.Line.ForeColor.RGB = ch1.SeriesCollection(3).Format.Line.ForeColor.RGB
    Next i
    ch1.SeriesCollection(2).IsFiltered = True
    ch1.SeriesCollection(2).IsFiltered = False
End sub

解决思路 #

1. 索引漂移修复：IsFiltered = True会导致序列被临时移出序列集合，原有索引失效，优先使用序列名称而非索引定位序列，同时将序列提前存入变量避免重复获取：

Dim targetSrs As Series
Set targetSrs = ch1.SeriesCollection("B") ' 这里替换为序列实际的名称
targetSrs.IsFiltered = True
targetSrs.IsFiltered = False

2. 强制刷新图表：执行恢复操作后调用Chart.Refresh方法强制图表重绘，解决视图未更新的问题：

ch1.SeriesCollection(2).IsFiltered = False
ch1.Refresh

3. 替代方案（无数据源筛选需求时使用）：如果仅需要控制序列显示隐藏，不需要同步筛选数据源，直接控制线条和标记的可见性即可，比IsFiltered更稳定：

' 隐藏序列
ch1.SeriesCollection(2).Format.Line.Visible = msoFalse
ch1.SeriesCollection(2).Marker.Visible = msoFalse
' 恢复序列
ch1.SeriesCollection(2).Format.Line.Visible = msoTrue
ch1.SeriesCollection(2).Marker.Visible = msoTrue

4. 原有代码优化：原代码中颜色同步的循环未使用循环变量，可修改为通用写法适配任意数量的序列：

For i = 1 To ch2.SeriesCollection.Count
    ch2.SeriesCollection(i).Format.Line.ForeColor.RGB = ch1.SeriesCollection(i).Format.Line.ForeColor.RGB
Next i

内容的提问来源于stack exchange，提问作者Jim Gunn