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

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

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

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

操作画面

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

手順

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

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

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

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

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

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

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

【リンク貼付け】

 

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


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

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

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

          返信

コメントを残す

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

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