クラスモジュール内の「DeletePic()」というプロシージャが悪さをしている原因です。これは写真の貼り付け前にシート上の全てのシェイプを削除する処理です。このプロシージャを以下のコードにまるごと書き換えてください。Sub途中でif分岐によりシェイプタイプをPictureかどうかを判断して削除する処理に変更しています。これでマクロボタンなどは削除されなくなりますが、写真以外の図も削除されてしまう可能性もあります。それ以外の図を残したい場合にはシェイプの位置をLeftなどで取得して、写真帳票の列内かどうか判断させることで削除を除外させることは可能です。別の方法として「DeletePic」自体を呼ばないことで強引に解決はできます。DeletePic」の部分をコメントアウト(行頭に「’」をつける)してください。これで画像が削除されなくなります。ありがとうございます。画像デ-タの削除を見ていてここをどうにか直せばと考えていましたところご回答いただきありがとうございます。図は写真と一緒に消えてしまいました。マクロボタンは残りましたので、また考えて見ます。ひとつ教えてほしいのですが写真は貼り付けたい順番に、ファイル名を連番で付けましたがその順番とおりに貼りつかなくなってしまいました。貼りついた写真を見ますと写真の名前が例でいいますと「図12」と名前が付いてますが、この名前の順番に貼りついて変わってしまいます。ファイル名とおりの順番に修正はできないのでしょうか?すみませんが、教えていただけないでしょうか。