画像の入れ替え

資料作成時に、オートシェイプや画像を利用することがあります。

それらを一度配置してから一切手を付けないのであれば別に問題ありませんが、実際の資料作りではいろいろ検討する中で画像や図形を変更したり、差し替えたりといった作業が出てきます。

そのような画像の配置作業は、微調整が結構必要だったりして、時間を費やすことがあります。その中でも、画像の差し替えで元の画像と同じ位置に新しい画像を配置する場合に、適当なセルに新しい画像を挿入後にマウスや十字キーで微調整をしたりして、これがなかなか時間がかかります。

以下で紹介するマクロは、そのような画像やオートシェイプなどの図形の位置を入れ替える処理を瞬時に行います。

これにより、2つの画像や図形の配置作業の時間短縮につながります。


コード

以下のマクロは、画像やオートシェイプなどの図形を2つ選択して実行すると、2つの画像の位置を入れ替えます。

Excelでは画像、図形(オートシェイプ)、アイコン、SmartArt、数学の公式、など、いくつかの種類の画像がありますが、それらの種類に関係なく2つ選択して実行できます。

2つの画像を選択していない場合はメッセージボックスを表示し、2つ選択することを促します。

使い方

入れ替えたい画像を2つ選択します。写真でもSmartArtでも構いません。ここではオートシェイプを2つ選択しています。

上で紹介したSwapImages()を実行します。実行後は以下のように場所が入れ替わります。選択状態のままのため、再度実行すると元の位置にまた戻ります。