エクセルで

質問

エクセルで、画像データが大量に貼り付いているのですが、
範囲を選択して削除しても残ってしまいます＞＜

セル内のデータだけでなく、
画像データもまとめて消す方法はありませんでしょうか。
教えて下さい。

回答No.3

ja7awu · ベストアンサー

> 画像データもまとめて消す方法はありませんでしょうか。

VBAで宜しければ、こんな感じで如何でしょうか。

[操作手順]
・消去する画像が含まれるセル範囲を選択状態にします。(削除画像の左上隅が入るように)
・使用しているシートのシート名タブを右クリックして「コードの表示」を指定します。
・開いたコードウィンドウに下記コードをコピーして貼り付けます。

Sub 範囲の画像削除()
Dim N As Long
Dim Cnt As Long
If TypeName(Selection) = "Range" Then
　　For N = 1 To ActiveSheet.Pictures.Count
　　　　If Not Intersect(ActiveSheet.Pictures(N).TopLeftCell, Selection) Is Nothing Then
　　　　　　ActiveSheet.Pictures(N).Delete
　　　　　　Cnt = Cnt + 1
　　　　End If
　　Next N
Else
　　MsgBox "画像削除対象セル範囲を選択して実行してください。", vbCritical
　　Exit Sub
End If
MsgBox Cnt & " 個 の 画像を削除しました。"
End Sub

・貼り付けたコードの何処かの行にカーソルがある状態で、F5キー(実行)を押します。
・これで、ご希望通り削除されたかシートを確認します。
・貼り付けたコードを全部消去し、、右上隅の×でシートに戻ります。
　(このコードをあと使用しないとき)

・他のシートや頻繁に使用する場合は、「標準モジュール」に貼り付けて、
　メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を
　「中」にして[OK]すると良いでしょう。

回答No.2

lafoji

図形描画の所に白い矢印が有ってそれをクリックしてから、消したい範囲をドラッグで囲って、DELETEキーを押しても駄目かな？

回答No.1

onntao

編集＜ジャンプ＜セル選択＜オプションボタンのうち"オブジェクト"をクリック
OK　を押下
でシート内の画像データが選択できませんか

補足

特定のセルの中の画像を選択できないでしょうか？；；
一つのセルの上に画像がいっぱい張り付いているんです泣