支援ツールでカードを引く

支援ツールでカードを引く方法はNightfighter Aceで使ってきたが、
Tokyo Expressでは4種類のカード群から1枚を同じセルに表示する。
その方法を以下にメモしておく。

1.問題点と対策
(1)問題その1
   取り込む際にカード画像が小さく、そのまま表示すると見にくい。(下図)

   対策はコピーした後に、コピー先の画像を拡大する。(下図)

(2)問題点その2
   4種類のカード群の切り替えをどうするか。
   対策は上図のように4種類のカード群に対応したボタンを作り、
   各ボタンの処理でパラメータを変えて処理する。

(3)問題点その3
   前回引いたカードが消えない。Nightfighter Aceと同じ方法を試したが
   上手く動かない。理由が不明である。
   対策はコピー先の画像名称を固定し、その名前の画像を消去する。

2.参考資料 
  下記のWEBページにお世話になりました。ありがとうございます。
 ・Excel VBA シート上の画像のサイズを変更する
 ・vbaでセル内にある画像や図形を選択する方法
 ・特定の名前のオートシェイプの有無を知りたい

3.実際のプログラム
  コピー処理

  消去処理

<個人的な感想>
同じような悩みを抱えている人がいるものである。
解消方法を教えて頂けるとありがたい。