Rifles in the Peninsula用VBAの改修(2/E)

つづき

6.グループ化するユニットの位置合わせ
  ”Excelで画像の移動”でグループ化を行った際には、
  各画像位置は手動で決めていた。
  もっと規則的に位置ずらしをする方が良いと思い、
  VBAを使う事にした。
(1)基本的な考え方
   基準となるユニットを決め、クリックした別ユニットを
   指定量だけ位置をずらしてコピーする。
(2)目標とする操作
   基準となるユニット(下図ではG)を任意のセルの左上隅に置く。

   基準となるユニットをクリックして、UnitNameのボタンを押す。
   →ユニット名と位置ずらし位置をボタンの下のセルに記憶する。(下図)

   コピーするユニット(下図では下側のH)をクリックして、Unit copyのボタンを押す。
   → 位置をずらしてコピーし、次の位置ずらし位置を更新する。 (下図では上側のH)

(3)プログラム
   ソースコードは、下図のようになる。
   top,left位置に加算しないと位置がずれない点に注意が必要である(マーカーと違う)。
   理由は不明だが、コピー先が選択中の画像(マーカーの場合)と選択中でない画像(今回)で
   違うのかもしれない。          

<個人的な感想>
やはり機械的に規則正しくずれると、見易い。