如何提取Excel图表的所有属性？附测试代码及VBE本地窗口使用疑问

测试用VBA代码 #

先运行以下代码创建测试图表：

Public Sub Macro1()
    
    'Delete all charts
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If ActiveSheet.Shapes(i).Type = msoChart Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i
    
    'Add a chart.
    With ActiveSheet.ChartObjects.Add(Left:=10, Top:=10, Width:=400, Height:=200)
        .Name = "myChart"
    End With
    
    'Add a serie.
    With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
        .ChartType = xlLine
        .XValues = Array(10, 20, 30, 40, 50)
        .Values = Array(1, 2, 3, 4, 5)
    End With
    
    'Apply a new chart style template
    ActiveSheet.ChartObjects("myChart").Chart.ClearToMatchStyle
    ActiveSheet.ChartObjects("myChart").Chart.ChartStyle = 233
    
End Sub

方法一：用VBE本地窗口查看属性 #

操作步骤： #

• 按Alt + F11打开VBE编辑器。
• 在Macro1的最后一行End Sub左侧空白处点击，添加红色断点。
• 按F5运行代码，程序会停在断点处，此时目标图表已创建完成。
• 点击VBE顶部菜单栏的「视图」→「本地窗口」，调出本地窗口面板。
• 在本地窗口中展开ActiveSheet → ChartObjects → myChart → Chart，就能看到该图表的所有属性及对应值，展开子节点可查看嵌套的详细属性（比如数据系列、样式设置等）。

方法二：用VBA代码自动导出属性到工作表 #

如果需要批量保存属性列表，可使用以下代码遍历图表所有属性并写入新工作表：

Sub ListChartProperties()
    Dim objChart As Chart
    Dim prop As Object
    Dim ws As Worksheet
    Dim rowNum As Integer
    
    '获取目标图表对象
    Set objChart = ActiveSheet.ChartObjects("myChart").Chart
    '新建工作表用于存储属性
    Set ws = ThisWorkbook.Worksheets.Add
    ws.Name = "ChartProperties"
    
    '设置表头
    ws.Cells(1, 1).Value = "属性名称"
    ws.Cells(1, 2).Value = "属性值"
    rowNum = 2
    
    '遍历并写入所有属性
    For Each prop In objChart.Properties
        On Error Resume Next '跳过无法读取的属性
        ws.Cells(rowNum, 1).Value = prop.Name
        ws.Cells(rowNum, 2).Value = prop.Value
        rowNum = rowNum + 1
        On Error GoTo 0
    Next prop
    
    '自动调整列宽
    ws.Columns("A:B").AutoFit
    MsgBox "属性已导出到工作表：" & ws.Name, vbInformation
End Sub

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