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

リンク貼り付けから埋め込み貼付けへ修正しました(2019/06/02)

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

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

操作画面

写真票(写真帳)の様式はこんな感じです。

※行列の幅、枠線、題名はエクセルシート上で修正できます 

手順

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

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

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

④写真票に記入したい項目があれば入力する
5行目まで入力可能!!

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

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

【埋め込み貼付け】

【リンク貼付け】

※列2列の場合(2列最大11行まで可能)
様式はこんな感じです。

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

【埋め込み貼付け】

この画像には alt 属性が指定されておらず、ファイル名は xlsm.gif です

【リンク貼付け】

 

※真ん中に1行追加する場合はこちら
様式はこんな感じ

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

カテゴリー: 写真 | 投稿日: | 投稿者:

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

  1. タネ

    いつも使わせていただいております。
    二枚目と三枚目の間に空白行を1行入れたいのですが、どのようにしたらいいでしょうか。
    様式を変えたところで、項目の参照や画像貼り付けがどうしてもうまくいきません。
    どうかご教示願います。

    返信
    1. macro 投稿作成者

      返信が遅くなりまして申し訳ありません。

      修正方法は変数(例えばj)を追加し、変数kのあまりが3、または0の時(つまり3枚目、4枚目の時)に
      1と設定する(1行追加)式を追加します。

      If k Mod 4 = 3 Or 0 Then
      j = 1
      Else
      j = 0
      End If

      そして、以下の写真や文字を入力する式に「+j」を追加します。

      ’写真挿入
       xlSheet.Cells(4 + 12 * ((k + 3) Mod 4) + j, 2).Select

      ‘項目の入力
      xlSheet.Cells(3 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 3)
      xlSheet.Cells(5 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 4)
      xlSheet.Cells(6 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 5)
      xlSheet.Cells(7 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 6)
      xlSheet.Cells(8 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 7)
      xlSheet.Cells(9 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 8)
      xlSheet.Cells(10 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 9)
      xlSheet.Cells(11 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 10)
      xlSheet.Cells(12 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 11)
      xlSheet.Cells(13 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 12)
      xlSheet.Cells(14 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 13)
      xlSheet.Cells(15 + 12 * ((k + 3) Mod 4) + j, 5) = Cells(i, 14)

      一番最後にご希望の様式のマクロを掲示致しましたのでご確認ください。
      何かありましたらまたご連絡下さい。

      返信
    2. こちら4枚連続のものをダウンロードさせて頂きました。

      こちらに表紙をつけたいのですが
      写真表作成時にフリーで編集可能なページを
      1枚つけるのは難しいでしょうか?

      返信
      1. macro 投稿作成者

        返信遅くなりまして申し訳ありません。
        写真様式シートに表紙を追加して(例えばシート名が「Sheet1」の場合)
        プロシャージャSub Photo()の

        Sheets(“写真票様式”).Copy

        Sheets(Array(“Sheet1”, “写真票様式”)).Copy

        に変更してみてはいかがでしょうか?

        返信

コメントを残す

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

This site uses Akismet to reduce spam. Learn how your comment data is processed.