多次运行VBA代码后Chart对象出现多种错误的排查求助

你遇到的问题确实是Excel VBA操作图表时常见的内存泄漏导致的——多次创建/销毁图表后，未正确释放的COM对象持续占用内存，最终触发溢出或自动化错误。以下是针对性的解决方法和优化后的代码：

核心解决措施 #

• 强制释放对象引用：每次操作完图表后，必须显式将对象变量设为Nothing，让Excel回收COM对象内存
• 优化对象删除逻辑：移除On Error Resume Next的滥用，确保图表删除操作彻底，避免残留无效对象
• 取消不必要的单元格选择：Select操作冗余且增加资源消耗，直接操作对象即可
• 关闭屏幕更新：批量操作时关闭屏幕更新，减少UI渲染的资源占用，同时提升运行速度

优化后的测试代码 #

Sub testCode()
    Dim sht As Worksheet
    Dim shp As Shape
    Dim chrt As Chart
    Dim i As Integer
    
    ' 关闭屏幕更新，减少资源消耗
    Application.ScreenUpdating = False
    
    Set sht = ThisWorkbook.Sheets(1)
    
    ' 优化图表删除逻辑，确保彻底删除所有形状
    If sht.Shapes.Count > 0 Then
        For i = sht.Shapes.Count To 1 Step -1
            sht.Shapes(i).Delete
        Next i
    End If
    
    ' 直接创建图表，跳过不必要的单元格选择
    Set shp = sht.Shapes.AddChart2(227, xlLine, 750, 1, 800, 505)
    Set chrt = shp.Chart
    
    With chrt
        .HasTitle = True
        .ChartTitle.Caption = "Analysis"
        .HasLegend = True
    End With
    
cleanup:
    ' 强制释放所有对象引用，解决内存泄漏的关键步骤
    Set chrt = Nothing
    Set shp = Nothing
    Set sht = Nothing
    Application.ScreenUpdating = True
    Exit Sub
    
errorHandle:
    Debug.Print Int(Err.Number) & ": " & Err.Description
    GoTo cleanup ' 出错也要执行资源释放，避免内存泄漏加剧
End Sub

关键改动说明 #

1. 对象释放逻辑：新增cleanup代码块，无论程序正常结束还是出错，都会将所有对象变量设为Nothing，强制Excel回收内存中的COM对象，从根源减少内存泄漏
2. 移除冗余操作：删除不必要的sht.Cells(27, 1).Select，直接调用AddChart2创建图表，避免额外的资源开销
3. 错误处理优化：出错后跳转到cleanup执行资源释放，防止错误状态下残留无效对象
4. 屏幕更新控制：操作前后关闭/开启屏幕更新，减少UI层面的资源消耗，同时提升代码运行效率

这样修改后，多次运行代码时内存泄漏的问题会被大幅缓解，不会再频繁触发溢出或自动化错误。

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