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