VBAで画像のコピーと削除

VBAで画像のコピーと削除を行った。
後の為に以下にメモしておく。

1.画像のコピー
(1)動作前(下図 橙色枠内の画像をコピーする)

(2)動作後

(3)VBAプログラム

2.画像の削除
(1)動作前(上図)

(2)動作後

(3)VBAプログラム

3.その他
(1)処理時間
   10セルのコピー   :43.9ミリ秒
   10セルの削除    :14.2ミリ秒
   10セルの表示ONOFF :8.8ミリ秒(参考)

(2)既に画像のあるセルにコピーすると下図のようにズレる。
   なお、3画像時の削除時間は24.4ミリ秒で1画像時よりも長くなる。
   (削除プログラムはセル内の全画像を削除するので、新しいプログラム作成は不要)

4.参考資料
  下記のWEBページにお世話になりました。ありがとうございます。
 ・【VBA】図形のコピーと貼り付け【Shapes、Copy、Pasteを使う】

<個人的な感想>
画像のコピー/削除で表示のON・OFFを実現するのは処理時間が長いが、
準備する画像と配置が1画像1セルで済むのがメリットである。
表示のON・OFF切替は準備する画像が1画像であるが、
配置するセルは必要数となる。
どちらの方法が良いかは悩ましい。