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

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

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

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

操作画面

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

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

手順

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

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

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

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

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

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

【埋め込み貼付け】

【リンク貼付け】

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

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

【埋め込み貼付け】

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

【リンク貼付け】

 

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

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

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

  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)

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

      返信

コメントを残す

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

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