スキルアップ・問題解決なら、モーグにおまかせ！

お世話になります。
Excelファイルに画像フォルダの中から画像を挿入し、さらにその画像ファイルをス駆除したいのです。

自分でコードを書いてみましたか？
 
マクロの記録でコードが作成できるがご存知ですか？

ありがとうございます。
挿入は下記のようにして取り込めました。
Sub InsertImage()
    Dim ws As Worksheet
    Dim img As Shape
     
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set img = ws.Shapes.AddPicture("C:\Users\user\Desktop\カレン貼付け一般\カレン角丸\２月.png", msoFalse, msoTrue, 100, 100, -1, -1)
     
End Sub
削除をただいま思案中です。

貼付けた画像には、画像ファイルの保存場所情報がありません。
 
そのため、AddPictureの引数部分を、
例えば、↓の方法で取得します。
 
Dim Filename As String
    Filename = Application.GetOpenFilename()
※キャンセルした場合の対応が必要です。
 
そうすれば、
　　　kill Filename
で削除できます。

ありがとうございます。
このようにコーディングしましたがうまくいきません。
Sub DeleteImagetesuto() '********** テスト　　　　*********
    Dim ws As Worksheet
    Dim img As Shape
     
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set img = ws.Shapes.AddPicture("C:\Users\user\Desktop\カレン貼付け一般\カレン角丸\２月.png", msoFalse, msoTrue, 100, 100, -1, -1)
      
    Dim Filename As String
        Filename = Application.GetOpenFilename()
   
     Kill Filename
 
End Sub

はじめて さんの引用:

このようにコーディングしましたがうまくいきません。

はじめて さんの引用:
ありがとうございます。
このようにコーディングしましたがうまくいきません。

はじめて さんの引用:

<<前の部分省略>>
    Set img = ws.Shapes.AddPicture("C:\Users\user\Desktop\カレン貼付け一般\カレン角丸\２月.png", msoFalse, msoTrue, 100, 100, -1, -1)
<<後の部分省略>>

追加
 
私がアドバイスした
Application.GetOpenFilename()
は、ファイルを選択するためのダイアログを表示するコードです。
そのダイアログで、貼り付け(兼)削除対象のファイルを選択します。
他人から提供されたコードを理解もせず、
どこにでも記述すればよいと考えてはいけません。

的確なるご指示ありがとうございます。
現在取り組んでいますのは、画像ファイルを入れ替えるためにマクロで対応しようと思っています。一度挿入した画像を半月ほどで入れ替えが発生します。削除の段階でファイルが見つからないとのメッセージが出て苦慮しておりました。もう少し研さんに努め完成させたいと思っています。よろしくお願いいたします。

質問の最初に
| Excelファイルに画像フォルダの中から画像を挿入し、
| さらにその画像ファイルを削除したいのです。
とあります。
念のため確認するんですが、
(1)削除するのは、その挿入した画像ファイルなんですか？
そうだとしたら、挿入に使ったファイルのパス名を使って
同時に Kill処理したらいいわけで削除そのものは何の難しさもないと思いますが、
それほど急いで削除する必要があるんですか？
例えば、挿入位置を変更したいなどという話が持ち上がったりしたら、
消してしまっていればアウトじゃないですか。
 
(2)消すのは、前の世代のものということなんですか？
Excelブックに埋め込まれた画像の元ファイル名は残っていませんから難しいですよ。
普通は、世代ごとにフォルダを分けたりしませんか？役目が済んだ段階でフォルダごと消せばいい。
 
そのあたりの前提を、誤解があってはいけないので明確にされたらどうですか。

ファイルは毎月1回、貼り付けている画像を消して別なファイルを挿入するものです。消去する画像も挿入する画像もファイル名は異なります。

コメントありがとうございました。
 
(1)画像の削除
・画像削除はワークシート上の「検索と選択」の「オブジェクトの選択」で選択して
  Deleteキーで一括して削除
もしくは
・マクロで削除

     ActiveSheet.DrawingObjects.Delete

はじめて さんの引用:
ファイルは毎月1回、貼り付けている画像を消して別なファイルを挿入するものです。

 
最初の質問

はじめて さんの引用:

お世話になります。
Excelファイルに画像フォルダの中から画像を挿入し、さらにその画像ファイルをス駆除したいのです。

はじめて さんの引用:

ファイルは毎月1回、貼り付けている画像を消して別なファイルを挿入するものです。消去する画像も挿入する画像もファイル名は異なります。

 simpleさん　ありがとうございます。
私が作った画像削除マクロを実行しますと、初回は画像は消えます。ただ、削除されているsheet上で再度削除を実行しますと、「インデックスが境界を越えています」というエラーが発生しました。そこで貴男のコメントの中の「ActiveSheet.DrawingObjects.Delete」の部分を使わせていただきますと、エラーが出なくなりました。
使ってもよろしいでしょうか？
 
 
 

はじめて さんの引用:

私が作った画像削除マクロを実行しますと、初回は画像は消えます。ただ、削除されているsheet上で再度削除を実行しますと、「インデックスが境界を越えています」というエラーが発生しました。

はじめて さんの引用:

そこで貴男のコメントの中の「ActiveSheet.DrawingObjects.Delete」の部分を使わせていただきますと、エラーが出なくなりました。
使ってもよろしいでしょうか？

画像ファイルを駆除 と 言っているのは、
 
エクセルに画像として挿入する、フォルダ内の【画像.jpeg】の
【画像.jpeg】を フォルダ内から削除する という意味ではないですよね？
 
その辺りは当方では、ご説明の内容がきちんと理解できませんのでスルー。
 
 
画像ファイルを入れ替える
について 一般機能 で実現する
 
方法の一つは
　MMYS さんが 既に おっしゃっている [図の変更]
　こちらは、エクセル上で 操作
 
もう一つの方法
　【画像.jpeg】を リンクとして挿入。
　画像を変えたい時には、
　　元の【画像.jpeg】ファイルを 削除またはファイル名 を 【元画像１.jpeg】の様に変え
　　同じフォルダに、新たに画像としてExcelに表示したいファイルを【画像.jpeg】として保存。
 
　　Excel上の操作は必要ありません。
　　開けば、サイズもそのままに、勝手に画像内容が変わります。
　　　（ただ、写真で向き情報があると、縦横比や向きが変わりますので注意が必要）
 
　　制限としては、
　　　そのエクセルファイル、画像フォルダ共、『信頼できる場所』である必要があります。
　　　Excelのオプションの トラストセンター 「トラストセンターの設定」
　　　　　信頼できる場所 の 新しい場所の追加で
　　　　　 そのエクセルファイル・画像ファイルの保存場所 を追加
　　　ただ、エクセルファイルだけを他のユーザーに送っても画像は表示されない事に注意
 
エクセルファイルを開き、画像を削除-再び画像を挿入 でも 良いでしょうけど。
 
結局、ダイアログで 選択するなら、消す動作が不要な 図の変更
ダイアログで画像選択の必要すらない、リンク の方が楽そうですね。

返事遅くなりました。質問者さんからお尋ねの件、形式的なものかと思いますが、
「もちろんOKです。」基本的に回答されたものを使うのに許可は要りません。
 
それよりも、皆さんから提案があるように、削除せずに更新していくほうが得策のように思います。
色々とよい提案もされていますから、虚心坦懐に検討されることを推奨します。
 
なお、画像の数とかそうした情報も提示すると共通認識のうえで議論することができます。
 
# 老婆心ながら申し上げると、コメントを頂いたら、きちんと返事をされるようお願いします。
# ひとつの発言のなかで、複数の方へ返事してもらって構いません。
# 皆さん時間を割いてボランティアで回答していますので、ご配慮下さい。

 WinArrowさん、 MMYSさん、 simpleさん、 Suzuさん、ありがとうございました。
おかげで完成できました。これまでのご教示に感謝いたします。