excel - 删除图表 VBA 错误

Question

当工作表上没有图表时，如何让 VBA 忽略此代码？目前，除非工作表中有 ChartObject，否则它将停止并打开调试器。

ActiveSheet.ChartObjects.Delete

谢谢你。

Answer 1

与其忽略代码，不如直接忽略错误。

On Error Resume Next
ActiveSheet.ChartObjects.Delete
On Error GoTo 0

Answer 2

当工作表上没有图表时，如何让 VBA 忽略此代码？

尝试这个

Sub Sample()
    Dim ws As Worksheet
    Dim Chrtobj As ChartObject

    Set ws = ThisWorkbook.Sheets("Sheet1")

    '~~> Check if there are any chartobjects in the sheet
    If Not ws.ChartObjects.Count = 0 Then ws.ChartObjects.Delete
End Sub