セル範囲内のすべての画像を削除するにはどうすればよいですか？

ワークシートに複数の画像が配置されている場合、指定した範囲内の一部の画像を削除したい場合、どのようにして迅速に対処しますか？

VBAコードを使用して特定のセル範囲内のすべての画像を削除する

Kutools for Excelを使用してワークシートまたはワークブック全体のすべての画像を削除する

VBAコードを使用して特定のセル範囲内のすべての画像を削除する

以下は、選択した範囲内の画像を1つずつ削除することなく削除するのに役立つ簡単なVBAコードです。以下の手順で行ってください：

1. ALT + F11キーを押しながら押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBAコード: 選択したセル範囲内のすべての画像を削除する：

Sub DeletePic()
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("A5:B8")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

注: 上記のコードでは、 A5:B8は画像を削除したい範囲です。必要に応じて変更してください。

3. そして、F5キーを押してこのコードを実行すると、選択した範囲内の画像が一度に削除されます。スクリーンショットをご覧ください：

Kutools for Excelを使用してワークシートまたはワークブック全体のすべての画像を削除する

ワークシートまたはワークブックからすべての画像を削除する必要がある場合、Kutools for Excelの「イラストとオブジェクトの削除」機能がお手伝いできます。

Kutools for Excelをインストール後、以下の手順で行ってください：

1. 「 Kutools」> 「削除」>「イラストとオブジェクトの削除」をクリックします。スクリーンショットをご覧ください：

2. 「イラストとオブジェクトの削除」ダイアログボックスで、「削除」セクションから「画像」を選択し、「 検索対象」セクションで画像を削除したい範囲を選択します。スクリーンショットをご覧ください：

3. 「OK」ボタンをクリックすると、選択したワークシートまたはワークブック全体からすべての画像が削除されます。