Excel VBA获取图表信息时因无Series触发"Object required"错误的解决

你遇到的核心问题是部分图表不存在数据系列（Series），直接访问.FullSeriesCollection(1)会触发对象不存在的错误。除此之外，原代码还存在其他潜在报错点（比如无图表标题、无分类轴的图表），以下是修复后的完整代码，同时加入了各类异常判断：

关键修复点 #

• 先判断图表是否包含数据系列：通过.SeriesCollection.Count > 0校验，仅存在系列时才读取数据范围和图例项
• 对图表标题做存在性判断：避免无标题图表触发错误
• 对分类轴做存在性判断：部分图表类型（如雷达图、饼图）没有水平分类轴，直接访问会报错
• 读取水平轴标签时，区分轴标签是否绑定单元格区域，避免非区域标签报错

修复后的完整代码 #

Sub ChartInfo()
    Dim sh As Worksheet
    Dim ch As ChartObject
    Dim s As Series
    Dim hasSeries As Boolean
    
    For Each sh In ThisWorkbook.Worksheets
        For Each ch In sh.ChartObjects
            With ch.Chart
                ' 基础信息：工作表、图表名称、坐标
                Debug.Print "Sheet Name: " & sh.Name
                Debug.Print "Chart Name: " & ch.Name
                Debug.Print "Top left Chart Co-ordinates on the sheet: (" & ch.TopLeftCell.Row & ", " & ch.TopLeftCell.Column & ")"
                
                ' 判断是否存在数据系列
                hasSeries = (.SeriesCollection.Count > 0)
                If hasSeries Then
                    ' 读取第一个系列的数据范围
                    Debug.Print "Chart Data Range: " & .FullSeriesCollection(1).Values.Address
                    
                    ' 读取图例项（Series）
                    Debug.Print "Legend Entries (Series):"
                    For Each s In .SeriesCollection
                        Debug.Print vbTab & s.Name
                    Next s
                Else
                    Debug.Print "Chart Data Range: 无数据系列"
                    Debug.Print "Legend Entries (Series): 无数据系列"
                End If
                
                ' 读取水平（分类）轴标签
                On Error Resume Next ' 临时屏蔽错误，判断轴是否存在
                Dim catAxis As Axis
                Set catAxis = .Axes(xlCategory)
                On Error GoTo 0
                
                If Not catAxis Is Nothing Then
                    ' 判断轴标签是否绑定单元格区域
                    If catAxis.TickLabels.Name <> "" Then
                        Debug.Print "Horizontal (Category) Axis Labels: " & catAxis.TickLabels.Address
                    Else
                        Debug.Print "Horizontal (Category) Axis Labels: 非单元格区域标签"
                    End If
                Else
                    Debug.Print "Horizontal (Category) Axis Labels: 无分类轴"
                End If
                
                ' 读取图表标题
                If .HasTitle Then
                    Debug.Print "Chart Title: " & .ChartTitle.Text
                Else
                    Debug.Print "Chart Title: 无标题"
                End If
                
                Debug.Print "---------------------------------"
            End With
        Next ch
    Next sh
End Sub

代码说明 #

• 用hasSeries变量标记图表是否有数据系列，避免直接访问不存在的FullSeriesCollection(1)
• 对分类轴使用On Error Resume Next临时屏蔽错误来判断对象是否存在，之后恢复错误处理
• 对图表标题、轴标签都做了存在性校验，确保代码能兼容各类图表类型

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