エクセルの写真帳票に簡単に写真を自動貼付できるようにするクラスモジュールを作りました

sato001

11年前

以前作った「エクセル写真帳」、割と好評でダウンロードされているようです。エクセル上で実際の写真を見ながらJPEGファイル名を一発で変えられる「エクセルJPEGリネーマ」と一緒に使うとより便利になります。

エクセル写真帳 ver5.3 ダウンロードページ(Vector)

エクセルJPEGリネーマ ver1.0

エクセル写真帳 ver4.0をリリースしました
 エクセル写真帳 ver5.0をリリースしました

今回はエクセル写真帳の話ではなく「エクセル写真帳から必要と思われる機能を抜き出し、クラスモジュールにまとめたものを作りました」という話です。具体的に以下のような場面で活躍します。

下請けで、元請けから指示されたExcel写真帳票で写真帳を作らなければならないとき
その場のノリでExcelで作った写真帳票にサクッと一発貼付したいとき

2018年4月13日追記
このクラスの改良版(ver2.0)を作成しました｡
誰でも簡単に導入、調整ができるように改良しています。以下の記事で紹介、ダウンロードできます。

エクセルの写真帳票に簡単に写真を自動貼付できるようにするクラスモジュールの改良版

どちらの場合でも、帳票に合わせて写真貼付マクロを組むことは可能です。が、新規でマクロを組むのは割と時間がかかるというのと、多くの場合、こうして作成したマクロはその時しか使われないので、マクロ作成効果が薄れてしまうデメリットがあります。

マクロ作成効果について

上記、写真貼付を例にすると、100枚の写真をシートに手作業で貼り付けて一つ一つリサイズしていく作業が2時間で終わるとして、同じことをマクロでやろうとすると、そもそもマクロを組むのに3時間くらいかかるようなとき、マクロ作成効果は薄いと思われる。

しかし、2時間で終わる仕事を3時間かけてやることは非効率だけれども、後日そのシートを使って同じ作業をする場合を想定すると、合計4時間かかる仕事を3時間で終わらせることができるので、この場合はマクロ作成効果が高いと思われる。

同じような作業がその後もたくさんあると想定される場合にマクロの効果は絶大になる

事実、前記したエクセル写真帳やJPEGリネーマは自分も仕事で使っていて、これを作ることに尽くした時間はトータルで何十時間もあるかもしれないけれど、これ作ってからの写真帳整理はわずか数分で終わっていて、これから先も一生数分で終わることが約束されています。

いちばんやさしいExcelVBAの教本人気講師が教える実務に役立つマクロの始め方 (「いちばんやさしい教本」シリーズ)

posted with ヨメレバ

伊藤潔人インプレス 2018-01-17

ですが、これはあくまでも自分で作った帳票で出す場合の話であって、人（他社など）からもらった帳票で作成しなければならない場合、マクロが入っていなければ手作業で作業しなければならない。これは恐ろしいことです。
一度楽を覚えてしまうと、手作業で1枚ずつ写真を貼り付ける、なんてバカらしくてやる気にすらならないのです。

そこで他社からもらった帳票にどうにかしてエクセル写真帳の機能を盛り込めないだろうか、ということから今回クラスモジュール化することを考え付きました。前置きが長くてごめんなさい。これからが本題です。

エクセルの写真帳票に簡単に写真を自動貼付できるようにするクラスモジュール

下準備

写真帳となるExcelのひな形を準備してください。以下のサンプルにあるような、縦に写真が並ぶごく一般的な帳票に対応しています。

サンプル帳票

あらかじめこの帳票はコピーして大量にページを作っておいてください。1ページ目と2ページ目で行や列が違ったりなんかするとうまく貼付できないので、行と列の相対的な位置関係は他のページでも必ず1ページ目と同じにしてください。

クラスモジュールを以下よりダウンロードします。ファイルはzip形式なので解凍して中身（SetPictures.cls）を取り出してください。

クラスモジュールをダウンロード

クラスモジュールをインポート

ダウンロードしたクラスモジュール（ファイル名:SetPictures.cls）をお使いの写真帳内にインポートします。Excelを起動後、「Alt+F11」キーを押してVBE（Visual Basic Editor）を立ち上げます。VBEはVBA（マクロ）の操作をするためのエディタでエクセルに標準で搭載されています。

VBEが立ち上がったら画面左側にあるプロジェクトウィンドウ内のエクセルファイル名がカッコ書きで書いてある部分を右クリック→「ファイルのインポート」をクリックします。