vba 怎么查看当前页面每个图表在系统中的编号或名称？如Chart 1

在VBA (Visual Basic for Applications) 中，如果你需要获取Excel工作簿中的图表编号或名称，你可以使用`ActiveWorkbook.ChartObjects`集合来遍历所有图表。以下是一个简单的步骤说明：

1. 首先，创建一个变量来保存图表对象：

Dim chartObj As ChartObject

2. 然后，通过`ChartObjects`集合迭代每个图表：

For Each chartObj In ActiveSheet.ChartObjects
    ' 获取图表编号
    Dim chartIndex As Long
    chartIndex = chartObj.Index
    
    ' 获取图表名称
    Dim chartName As String
    chartName = chartObj.Name
    
    ' 打印或处理图表信息
    Debug.Print "图表 " & chartIndex & ": " & chartName ' 可以在这里做其他操作
Next chartObj

上述代码会打印出每个图表在工作表上的索引（即编号）及其名称。