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
指定範囲内で図形等を削除する方法は?
その他(Microsoft Office)
-
5
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
6
Excelの任意セル上に図形がのっているかどうか?
Excel(エクセル)
-
7
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
8
Excelのセル内にある図形を削除したいのです。
Visual Basic(VBA)
-
9
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
10
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
11
Excel ユーザーフォームで表示させた画像をユーザーフォーム上で保存したい
Visual Basic(VBA)
-
12
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
13
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
14
VBA Shapes コピーと名前
Excel(エクセル)
-
15
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
16
エクセルでの特定位置のセル内に入ってゐる写真画像消去を VBAはできるのか
Excel(エクセル)
-
17
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
18
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
19
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
20
EXCELのVBAでRange(A1:C4")を変数にする方法を教え"
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
対象セル内(複数)が埋まった...
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
セルをクリック⇒そのセルに入力...
-
エクセル 足して割る
-
エクセル オートフィルタで絞...
-
EXCEL VBA セルに既に入...
-
(Excel)数字記入セルの数値の後...
-
Excelで住所を2つ(町名迄と番...
-
Excelでのコメント表示位置
-
複数のセルのいずれかに数字が...
-
Excelのチェックボックスの使い...
-
Excel2003 の『コメント』の編...
-
Excelで数式内の文字色を一部だ...
-
【Excel】 セルの色での判断は...
-
枠に収まらない文字を非表示に...
-
Excel:指定セル以下全てのセル...
-
エクセルのセルの枠を超えて文...
-
セルに特定の色が付いていたら...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
対象セル内(複数)が埋まった...
-
Excelで数式内の文字色を一部だ...
-
セルをクリック⇒そのセルに入力...
-
Excelでのコメント表示位置
-
エクセル 足して割る
-
excelのCOUNTIF関数で、『範囲=...
-
EXCEL VBA セルに既に入...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
(Excel)数字記入セルの数値の後...
-
エクセルの一つのセルに複数の...
-
【Excel】 セルの色での判断は...
-
Excel2003 の『コメント』の編...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
複数のセルのいずれかに数字が...
-
枠に収まらない文字を非表示に...
-
excelの特定のセルの隣のセル指...
おすすめ情報