如何通过VBA代码获取Excel图表中仅可见的分类标签

1. 运行指定VBA代码 #

首先执行以下VBA宏代码，完成图表的删除、创建及数据填充：

Public Sub Macro1()
    '删除所有图表
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If ActiveSheet.Shapes(i).Type = msoChart Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i
    '添加图表
    With ActiveSheet.ChartObjects.Add(Left:=10, Top:=10, Width:=500, Height:=300)
        .Chart.Axes(xlCategory).TickLabels.Font.Size = 40
    End With
    '添加数据系列
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection.NewSeries
        .ChartType = xlLine
        .XValues = Array(1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000, 9000, 10000, 11000, 12000, 13000, 14000, 15000, 16000, 17000, 18000, 19000, 20000)
        .Values = Array(150, 200, 800, 1200, 900, 600, 900, 850, 1500, 1600, 1900, 1700, 600, 500, 450, 300, 500, 750, 900, 850)
    End With
    '打印所有X轴数值
    For Each i In ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).XValues
        Debug.Print i
    Next
    '以下代码与上述打印X轴数值功能相同
    'For Each i In ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory).CategoryNames
        'Debug.Print i
    'Next
End Sub

2. 验证图表生成 #

运行代码后，检查当前工作表是否生成符合预期的折线图，示例图表如下：

3. 获取图表中仅可见的分类标签 #

问题描述 #

如何通过VBA代码获取该图表中仅可见的分类标签？已知可见标签为：1000、4000、7000、10000、13000、16000、19000。

解决方案 #

通过遍历图表分类轴的TickLabels集合，判断每个标签的Visible属性，筛选并收集可见标签内容，代码如下：

Sub GetVisibleCategoryLabels()
    Dim chtObj As ChartObject
    Dim categoryAxis As Axis
    Dim tickLabel As TickLabel
    Dim visibleLabels As Collection
    Dim idx As Integer
    
    '指定目标图表
    Set chtObj = ActiveSheet.ChartObjects(1)
    Set categoryAxis = chtObj.Chart.Axes(xlCategory)
    Set visibleLabels = New Collection
    
    '遍历所有刻度标签，筛选可见项
    For Each tickLabel In categoryAxis.TickLabels
        If tickLabel.Visible Then
            visibleLabels.Add tickLabel.Text
            Debug.Print tickLabel.Text '输出到VBA立即窗口
        End If
    Next tickLabel
    
    '可选：将可见标签写入工作表A列
    For idx = 1 To visibleLabels.Count
        ActiveSheet.Cells(idx, "A").Value = visibleLabels(idx)
    Next idx
End Sub

代码说明 #

1. 首先定位目标图表对象及分类轴；
2. 遍历分类轴的所有刻度标签，通过Visible属性判断标签是否可见；
3. 收集可见标签文本，可选择输出到VBA立即窗口或写入工作表指定位置。

内容的提问来源于stack exchange，提问作者Kram Kramer