FullCategoryCollection仅对第一个图表生效，求问题排查与解决方法

以下是针对你代码问题的排查和修改方案：

问题根源分析 #

你的代码能处理第一个图表，但遍历失效，核心问题有三个：

• 错误的索引混用：z = ActiveChart.Parent.Index 取的是工作表中图表容器的索引，但ChartGroups(z) 是图表内部的系列组索引（比如柱状图的分组），两者完全不相关。第一个图表碰巧系列组数量和z值一致才生效，后续图表必然出错。
• 依赖激活图表的不稳定操作：激活图表容易因焦点变化导致意外错误，且完全没必要。
• 错误屏蔽掩盖问题：On Error Resume Next会隐藏所有执行异常，导致你无法定位代码中的实际问题。

修改后的代码 #

Public countIndex As Integer
Sub Botão1_Clique()
    
    Dim i As Integer
    Dim x As Integer
    Dim countChart As Long
    Dim check As Variant
    Dim wkdad As Worksheet
    Dim y As Integer
    Dim targetChart As ChartObject
    
    ' 移除错误屏蔽，便于排查问题
    ' On Error Resume Next
    
    Set wkdad = ThisWorkbook.Sheets("Planilha1")
    i = 25
    y = 1
    countIndex = 0
    check = wkdad.Cells(i, 7)
    Cad_Vendas.ComboBox1.Clear
    
    Do While check <> ""
        ' 填充下拉框逻辑保留
        Cad_Vendas.ComboBox1.AddItem wkdad.Cells(i, 7)
        
        ' 直接获取图表对象，无需激活
        Set targetChart = wkdad.ChartObjects("Gráfico " & y)
        With targetChart.Chart
            ' 获取分类总数（FullCategoryCollection属于Chart对象，而非ChartGroups）
            countChart = .FullCategoryCollection.Count
            ' 遍历所有分类，取消过滤
            For x = 1 To countChart
                .FullCategoryCollection(x).IsFiltered = False
            Next x
        End With
        
        i = i + 1
        y = y + 1
        countIndex = countIndex + 1
        check = wkdad.Cells(i, 7)
    Loop

    Cad_Vendas.Show
    Cad_Vendas.ComboBox1.ListIndex = 0
End Sub

额外排查建议 #

• 确认工作表中所有目标图表的名称确实是Gráfico 1、Gráfico 2...格式，没有拼写错误或序号断层。
• 如果运行时出现错误，根据报错信息定位：比如“对象不存在”说明图表名称不匹配，“方法无效”说明图表类型不支持分类过滤（比如饼图无需此操作）。

内容的提问来源于stack exchange，提问作者João Paulo Francisconi