如何检查工作表是否存在图表并处理，解决ChartObjects计数报错问题

我明白你遇到的痛点了——当工作表里没有图表时，直接调用Worksheet.ChartObjects.Count居然会报错，这确实不符合直觉。其实问题出在VBA的集合处理逻辑上：如果工作表从未创建过图表，或者所有图表都被删除后，ChartObjects集合可能处于一种“未初始化”的状态，直接访问Count就会触发对象错误。下面给你两种可靠的解决思路，以及完整的检查+删除图表的实现代码：

方法1：用错误捕获安全判断是否存在图表 #

这是最直接的方案，通过临时屏蔽错误来获取图表计数，之后恢复默认错误处理：

Function HasCharts(ws As Worksheet) As Boolean
    Dim chartCount As Long
    On Error Resume Next ' 临时屏蔽错误，避免无图表时的对象报错
    chartCount = ws.ChartObjects.Count
    On Error GoTo 0 ' 恢复默认错误处理机制
    HasCharts = (chartCount > 0)
End Function

说明 #

当工作表无图表时，访问Count会触发错误，此时chartCount会保持初始值0，函数返回False；有图表时则正常获取计数并返回True。

方法2：直接遍历删除所有图表（无需提前计数） #

如果你最终的目的是删除现有图表，其实可以跳过计数检查，直接遍历ChartObjects集合删除——即使集合为空，遍历操作也不会报错（VBA会自动跳过空集合的循环）：

Sub DeleteAllChartsInWorksheet(ws As Worksheet)
    Dim chtObj As ChartObject
    ' 遍历工作表中所有嵌入式图表并删除
    For Each chtObj In ws.ChartObjects
        chtObj.Delete
    Next chtObj
End Sub

组合实现：检查+删除完整流程 #

如果需要先判断是否有图表，再执行删除操作，可以结合上面的函数和子过程：

Sub CheckAndDeleteCharts(ws As Worksheet)
    If HasCharts(ws) Then
        DeleteAllChartsInWorksheet ws
        MsgBox "工作表中的所有图表已删除！"
    Else
        MsgBox "该工作表中没有图表。"
    End If
End Sub

额外注意事项 #

• 确保你引用的工作表是明确的，尽量避免使用ActiveSheet（容易因为用户切换工作表而出错），推荐用ThisWorkbook.Worksheets("你的工作表名称")来指定目标工作表。
• 上述代码处理的是嵌入式图表（嵌入在工作表中的ChartObject），如果你的工作簿中有独立的图表工作表（单独的Chart Sheet），需要用ThisWorkbook.Charts集合来处理，逻辑类似。

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