如何提取Excel图表的所有属性？

Question

    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当地人window。

如何在VBA中列出图表对象的属性？

要在当地的窗口中显示一些东西，您需要将本地变量指向您感兴趣的任何东西。 使用这样的代码（也许您必须稍微调整它）

Sub showChartInfo()
    Dim ws As Worksheet, co As ChartObject, ch As Chart
    
    Set ws = ThisWorkbook.Sheets(1)
    Set co = ws.ChartObjects(1)
    Set ch = co.Chart
End Sub

设置了

End Sub

Answer 1

tlbinf32.dll允许列出对象的所有属性，但顾名思义，它仅在32位办公室（我认为）中工作。 请参阅：

https：//jkp-ads.com/articles/objectlister.aspx