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

删除图表VBA错误

2 个答案: