No.3ベストアンサー
- 回答日時:
こんにちは。
2つほどサンプルを。ご参考までに。
' // C5セル内に画像左上角がある場合は削除
' // 画像右下がC5セルからはみ出しているかどうかを問わない
Sub SampleProc1()
Dim Pic As Picture
For Each Pic In ActiveSheet.Pictures
If Pic.TopLeftCell.Address = "$C$5" Then
Pic.Delete
End If
Next
End Sub
' // セルの選択範囲内に完全に含まれる画像を削除
Sub SampleProc2()
Dim Pic As Picture
Dim r As Range
If UCase$(TypeName(Selection)) <> "RANGE" Then Exit Sub
For Each Pic In ActiveSheet.Pictures
Set r = Range(Pic.TopLeftCell, Pic.BottomRightCell)
If Selection.Address = Union(Selection, r).Address Then
Pic.Delete
End If
Set r = Nothing
Next
End Sub
No.2
- 回答日時:
こんな感じでしょうか。
ただし画像左上がC5にないと削除されません。セルを覆い隠すように配置されているなら補足してください
Sub Macro()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Address = "$C$5" Then
shp.Delete
End If
Next shp
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/04/21 13:46
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- Android(アンドロイド) GooglePixel6aで写真が勝手に消えた 5 2023/04/05 15:48
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで特定のセルに画像があれば削除、なければ貼り付けを行いたい
Excel(エクセル)
-
エクセルマクロで指定範囲内の図形を削除
Excel(エクセル)
-
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
-
4
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
5
指定範囲内で図形等を削除する方法は?
その他(Microsoft Office)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
VBAで選択した画像を貼り付けたい
Excel(エクセル)
-
8
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
11
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
12
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
13
エクセル ユーザーフォームにオートシェープ(図形)を貼り付けるこは可能なのでしょうか?
Excel(エクセル)
-
14
VBA Shapes コピーと名前
Excel(エクセル)
-
15
VBAの内容の修正をお願いさせて頂きます
Excel(エクセル)
-
16
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
17
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
18
エクセルでの特定位置のセル内に入ってゐる写真画像消去を VBAはできるのか
Excel(エクセル)
-
19
Excel マクロ 画像をリンクせずかつ圧縮して貼りつける方法を教えてください
Excel(エクセル)
-
20
エクセルVBAでセル番地を指定してオブジェクト名取得
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】IF関数 Aまたは...
-
エクセル 足して割る
-
(Excel)数字記入セルの数値の後...
-
Excelで数式内の文字色を一部だ...
-
対象セル内(複数)が埋まった...
-
エクセルで指定したセルのどれ...
-
エクセルの一つのセルに複数の...
-
Excelでのコメント表示位置
-
貼り付けで複数セルに貼り付けたい
-
excelのCOUNTIF関数で、『範囲=...
-
EXCEL VBA セルに既に入...
-
ピボットテーブルの更新時にエ...
-
セルに特定の色が付いていたら...
-
エクセルのセルの枠を超えて文...
-
エクセルで縦に1112223...
-
エクセル オートフィルタで絞...
-
Excelで、「特定のセル」に入力...
-
枠に収まらない文字を非表示に...
-
excelの特定のセルの隣のセル指...
-
セルをクリック⇒そのセルに入力...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル 足して割る
-
【エクセル】IF関数 Aまたは...
-
エクセルで指定したセルのどれ...
-
Excelで数式内の文字色を一部だ...
-
Excelでのコメント表示位置
-
貼り付けで複数セルに貼り付けたい
-
対象セル内(複数)が埋まった...
-
セルをクリック⇒そのセルに入力...
-
【Excel】 セルの色での判断は...
-
エクセルの一つのセルに複数の...
-
EXCEL VBA セルに既に入...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
excelのCOUNTIF関数で、『範囲=...
-
(Excel)数字記入セルの数値の後...
-
枠に収まらない文字を非表示に...
-
Excel2003 の『コメント』の編...
-
Excel 例A(1+9) のように番地の...
-
複数のセルのいずれかに数字が...
おすすめ情報