VBA：如果找不到对象，则跳过查找对象

Question

我正在使用Excel工作表，用户可以将信息输入到特定单元格中，然后保存，然后发送。在这张表中，他们可以选择粘贴一个图像（一个名为“图片”的.bmp文件）。我有一个宏清除单元格的内容。当图像存在时，它可以很好地工作，但当图像不存在时会失败，但并不总是如此。我没有任何编码经验，并且一直拼凑到目前为止来自Google的所有内容。如果我的宏不在表单上，​​而是继续清除剩余单元格的内容，我怎么让我的宏跳过寻找命名图像？

这里是我的代码：

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