excel - VBA：如果找不到则跳过寻找对象

Question

我在 Excel 中的工作表上工作，用户可以在其中将信息输入特定单元格，保存，然后发送。在此工作表中，他们还可以选择粘贴图像（名为“图片”的 .bmp 文件）。我有一个清除单元格内容的宏。当图像存在时它可以正常工作，但当图像不存在时会失败，这并不总是存在。到目前为止，我的编码经验为零，并且将所有东西都拼凑在一起。如果它不在工作表上但继续清除剩余单元格的内容，如何让我的宏跳过查找命名图像？

这是我的代码：

Sub ResetandDelete()
' 
'ResetAndDelete Macro
'Clears cell contents and resets form.

    Range("A44:E60").Select
    Selection.ClearContents
    Activesheet.Shapes.Range(Array("Picture")).Select
    Selection.Delete
    Range("C6:C38").Select
    Selection.ClearContents

End Sub

请帮忙！！

Answer 1

尝试这个

Sub ResetandDelete()
    With ActiveSheet
        .Range("A44:E60").ClearContents

        On Error Resume Next
        .Shapes.Range(Array("Picture")).Delete
        On Error GoTo 0

        .Range("C6:C38").ClearContents
    End With
End Sub