在 Excel 图表的 select 数据源框中以编程方式 select X 轴标签

Question

首先，我没有任何代码可以展示，因为我不知道如何做我想做的事情。而我运行宏录制器的时候，我需要的步骤没有录制下来

我想做的是在 Excel 图表的 Select 数据源对话框中以编程方式“单击 X 轴标签旁边的复选框”。我在 sheet 上有一个范围，每个月列在 B 列中，总计列在 C 列中。总计是来自为特定月份命名的 sheet 的 VLOOKUP 函数。该图表将月份和总数列为一个简单的条形图。因此，您右键单击图表并从菜单中选择 Select 数据。当对话框打开时，水平轴上会列出带有复选框的每个月。只有一个系列。我需要找到一种方法来使用 VBA 检查月份框。我只是想知道是否有办法做到这一点。

Answer 1

这会列出类别并显示它们的显示状态。设置 IsFiltered = False 显示，True 隐藏。

Sub ListChartCategories()
    Dim FullCategoryCollection As CategoryCollection
    Dim ChartCategory As ChartCategory
    Dim n As Long
    
    Set FullCategoryCollection = ActiveSheet.ChartObjects("Chart 3").Chart.ChartGroups(1).FullCategoryCollection
    
    For n = 1 To FullCategoryCollection.Count
        Set ChartCategory = FullCategoryCollection(n)
        Debug.Print ChartCategory.Name, ChartCategory.IsFiltered
    Next
End Sub

在 Excel 图表的 select 数据源框中以编程方式 select X 轴标签

Programmatically select X-axis labels within the select data source box of an Excel chart

excel

charts

vba