3

ユーザーが特定のセルに情報を入力し、保存してから送信できるシートで Excel で作業しています。このシートには、画像 (「Picture」という名前の .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

助けてください！！

4

1 に答える 1

4

これを試して

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
于 2012-10-25T18:22:45.007 に答える