写真票作成(写真帳)マクロ A4縦に写真6枚貼り付け

リンク貼付けと埋め込み貼付けの2種類を掲載しました(2019/07/11)

写真票作成(写真帳)マクロ A4縦に写真6枚貼り付けるマクロをご紹介します。
これで自動でアルバム作成ができます。

※ その他の様式一覧はこちら

操作画面

写真票(写真帳)の様式はこんな感じです。
※行列の幅、枠線、題名はエクセルシート上で修正できます 

手順

①写真データを1つのフォルダに保存する
※ファイルの並び順に写真が配置されます。
順番を変えたい場合は名前を変更してください。

H1セルに写真データのフォルダのパスを記入する

ファイル取得ボタンを押す
B列に設定フォルダのファイル名が記入されます(ここで画像データ以外がないか確認)

④写真票に記入したい項目があれば入力する
3行目まで入力可能!!なければ空欄で。

写真票作成ボタンを押す
写真データ保存先に写真票フォルダが作成され、その中にファイルが保存されます。

こういった感じで写真を貼り付けたシートが自動でできます。

↓ダウンロードはこちらをクリック(詳しい手順、注意事項はファイルの中に記載)
【埋め込み貼付け】

【リンク貼付け】

 

※【埋め込み貼付け】の際に
 写真をさらに圧縮したい場合はこちらをご利用ください。


——————————————————————————-
※以下のエラーが出た方はこちらをお試しください。
「実行時エラー’-2147417851(80010105)’:
 ’Open’メッソトは失敗しました:’Workbooks’オブジェクト」

写真票作成(写真帳)マクロ A4縦に写真6枚貼り付け」への14件のフィードバック

  1. 千葉

    初めまして、写真報告書を作成したく
    こちらのエクセルデータを利用させて頂いています
    写真票作成ボタンを押すと、マクロのエラーで
    Set xlBook = xlsApp.Workbooks.Open(DestinationFile) が黄色く塗られストップしてしまいます

    エクセル2016
    Windows10 home

    で使用しています
    何か改善策はありますでしょうか
    よろしくお願いいたします

    返信
    1. macro 投稿作成者

      千葉様
      ご連絡ありがとうございます。
      どのようなエラーメッセージが表示されていますか?

      返信
      1. チー

        ご連絡遅くなりました

        メッセージは

        実行時エラー’-2147417851(80010105)’:
        ’Open’メッソトは失敗しました:’Workbooks’オブジェクト

        です

        デバッグを押して、マクロ画面に

        Set xlBook = xlsApp.Workbooks.Open(DestinationFile)

        が黄色くなっていて、ストップしています

        返信
        1. macro 投稿作成者

          原因はわかりませんが、たまにWorkbooks.Open メソッドが失敗することがあるようです。
          このマクロのページの一番最後にエラーの出た方用に新たなマクロを掲示しました。
          こちらでうまく動くかはわかりませんがお時間がありましたらお試しください。

          返信
  2. こんにちは。
    とても便利なマクロを作ってくださりありがとうございます。

    使用していたところ、フォルダの順番通りに表示されないことが時折あります。
    これはなぜでしょうか。

    windows10、Excel365を使っています。

    お時間がございましたらどうぞよろしくお願いいたします。

    返信
    1. macro 投稿作成者

      ご連絡ありがとうございます。
      ファイル取得をする際に必ずしもフォルダの昇順でファイル取得できるともかぎりません。
      皆さんが昇順でファイルを取り込みたいかもわからなかったため
      こちらのマクロではファイルを取得した後に
      オートフィルタ等でファイルの順番を並べ替えてもらう方法を取っていただいております。
      お手数お掛け致しますが、よろしくお願い致します。
      もし、こちらの方法で不具合があるようでしたら昇順でファイルを取得できるものをお作り致します。

      返信
  3. 坂本夏輝

    写真を中央に配置するにはどうしたら良いのでしょうか?
    一枚一枚手動でやらなくてはいけないですか?

    返信
    1. macro 投稿作成者

      ご連絡ありがとうございます。
      返信が遅くなりまして申し訳ございません。
      写真の大きさにより、配置のバランスが変わってくると思います。
      初めに写真様式で中央配置になるように列幅を調整していただければ
      一枚一枚修正する必要はなくなるかと思います。
      B列、D列の端から写真が張り付くようになっています。
      それで調整していただければと思います。

      返信
  4. 坂本夏輝

    埋め込み貼り付けとリンク貼り付けの違いを教えください

    返信
    1. macro 投稿作成者

      返信が遅くなりまして申し訳ございません。
      リンク貼付けと埋め込み貼付けの違いは以下になります。

      リンク貼付け
      リンク貼付けすると、そのオブジェクトのデータはリンク元の写真ファイルが変更されたときに更新できます。
      リンクされる写真データは、リンク元のファイルに保存されています。
      エクセルファイルには、リンク元ファイルの保存場所の情報だけが保存され、リンクされたデータのイメージが表示されます。
      写真データのファイルを移動するとリンクが切れ、写真は表示されなくなります。
      ファイル サイズを小さくする必要がある場合は、リンク貼付けを使用します。

      埋め込み貼付け
      埋め込み貼付けをすると、ファイル内の写真のデータは、埋め込み元の写真ファイルを変更しても変更されません。
      写真データを埋め込み貼付けすると、写真データはファイルの一部となり、埋め込み元の写真ファイルとは関連がなくなります。
      埋め込みでは、すべての写真ファイルが 1 つのファイルに格納されるので、
      写真データに埋め込み元のファイルの変更を反映する必要がない場合や、
      文書を受け取ったユーザーがリンクされた情報を更新する手間を省く場合に便利です。

      返信
      1. 坂本夏

        返信ありがとうございます。

        続けて質問なのですが、画像を挿入した際に、画像が左寄りになってしまうのですが、中央揃えで、かつ、ちょうどよく収まるようには出来ないでしょうか?
        よろしくお願いします

        返信
        1. macro 投稿作成者

          写真の大きさにより、配置のバランスが変わってきます。
          初めに写真様式で中央配置になるように列幅を調整していただければ
          一枚一枚修正する必要はなくなるかと思います。
          B列、D列の端から写真が張り付くようになっています。
          それで調整していただければと思います。

          返信
  5. ふじた

    こんにちは。

    大量の写真整理をしていて、この6枚Excelが使えなくなってしまい、
    困っています。期限も迫っており、とてもとても困っています。

    「実行時エラー1004  写真票xlsxにアクセスできません。」

    というエラーは何なのか、お分かりになりますでしょうか?
    使い始め当初(数週間前)から時折出てきており、都度ダウンロードしなおして
    なんとか使っておりましたが、この度ダウンロードしなおしてもこのエラーが出て
    完全に使用不可になっております。

    もし理由がわかりましたらお教え頂きたく、よろしくお願いいたします。

    返信
    1. macro 投稿作成者

      こちらのPC環境ではエラーが起きておりませんので
      そちらのPC環境がわかりませんのでこちらでは分かりかねます。
      お力にならず申し訳ありません。

      返信

macro へ返信する コメントをキャンセル

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください