• ベストアンサー

Excelに複数の写真を挿入する場合…

KenKen_SPの回答

  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.5

> 一例を示していただきましたが、私の手には負えないようです。 では、良い機会ですから時間のあるときにでも、次の手順どおりやってみて 下さい。VBA (マクロ)とはこういうことができる、と触れておいて損は ありませんよ。 【 手 順 】 1. Excel 画面で [Alt]+[F11] キーを押す。   --> Visual Basic Editor (以下 VBE )起動 2. VBE 画面のメニュー [挿入]-[標準モジュール] をクリック 3. #2 のソースコード 「Sub 複数の画像を挿入()~最後まで」 をコピー 4. 2. で開いたスペースにペースト 5. VBE を閉じる ここまでで、準備は終了です。次に使い方です。 6. Excel 画面で新規ワークシートを挿入 7. 現在の設定は、C5 以下で5行置きに画像を挿入します。画像挿入場所の   セルの高さにリサイズするようになってますので、予めセルの高さを   希望する大きさに変更しておいて下さい。   C5 → C10 → C15 → ... のように貼り付きます。 7. [Alt]+[F8] キーを押し、マクロ「複数の画像を挿入」をダブルクリック 8. 7. により「ファイルを選択する画面」が表示されます。ここで、挿入する   画像を1~複数枚選択し、OK をクリックします。 以上で、ファイル名順に画像が次々に挿入され、位置決め、サイズ等を自動で 設定します。  # 私も工事写真票を作ったことがありますが、写真が多いと面倒ですよね。

rx-z5815
質問者

お礼

またまた、ご丁寧な回答ありがとうございます! マクロを使えるようになりたいと思っているのですが、本や雑誌などを読んでもさっぱり意味がわからなくて、手を出せないでいました。 私は普段は経理をしていて、工事写真帳の作成は頼まれてやっているのですが、写真を見ただけでは順番がわからないので、貼りつけたい順番どおりに挿入できるだけでも、ずいぶん作業の効率がよくなるんです。 詳しく説明していただきましたので、時間を見つけてチャレンジしたいと思います。

rx-z5815
質問者

補足

早速、教えていただいた手順どおりにマクロを使ってみました。 次々に写真が挿入されていき、ちょっと感動してしまいました! そこで、もう1つ教えていただいてもよろしいでしょうか? 現在の設定では、「C5以下で5行おきに画像を挿入する」ようになっているとのことですが、この“C5”以下を“選択しているセル”以下という設定は可能でしょうか?もし可能であれば、その方法を教えていただきたいのですが… よろしくお願いします。

関連するQ&A

  • エクセルで複数行に一度に改ページを挿入する方法

    エクセルで2行ごとに、一気に改ページを挿入する方法があればおしえてください。 全部で50の改ページを挿入しなければならないので、いちいち挿入する行を選択して改ページを入れるのは面倒で。 マクロも考えていますが、マクロ以外で方法はないでしょうか? ためしに、複数行選択して、改ページを挿入してみたら、最後の選択行にしか改ページが入っていませんでした。 2行ごとという規則性があるので、何か方法がありそうですが…。 よろしくお願いします。

  • 複数の写真をエクセルに貼り付けられるマクロ

    エクセルで工事写真を貼り付けたいのですが、 マクロにより以下のことを実行したいです。 (1)写真貼り付け開始セルをダブルクリック (2)写真を複数枚選択 (3)写真をセルのサイズにリサイズ (4)ファイル名順に写真を貼り付け マクロを普通に実行して(2)~(4)を行うコードや 写真1枚に対して(1)(3)(4)ができるコードは見つかるのですが、 (1)~(4)ができるコードが見つかりません。 ちなみに、写真貼り付け用のセルは4列×12行分の結合セルで この形式が下に延々と続いています。 どなたか良い知恵をお貸しください

  • Excelで複数の写真。

    Excelで複数の写真を同じサイズに一気に挿入する方法を教えてください。 写真の大きさは、履歴書ぐらいの大きさで、1つのセルに1枚入るようにしたいです。 最終的に、できるだけたくさん並べて、A4用紙に印刷したいです。 Excel初心者です。Σ(-∀-;) もしも可能であれば、もう1つ。 上記の写真に加え、ファイル名も一緒に 表示できるのであれば、そちらも教えていただきたいです。┏〇┏〇┏〇 一行目→写真。複数(A4に入る分) 二行目→ファイル名。複数(A4に入る分) 三行目→写真。複数(A4に入る分) 四行目→ファイル名。複数(A4に入る分) のようなイメージです。 説明が下手ですいません。 よろしくお願いします♪┏〇┏〇

  • エクセル2000で複数のセルを挿入

    エクセル2000で一度に複数のセルを挿入する方法ってあるんでしょうか? 例えば、12番目のセルと13番目のセルの10個のセルを追加する場合、13番目のセルの上で10回セルの追加を行っているのですが‥宜しくお願いします!

  • エクセルで写真を挿入する方法を教えて下さい。

    エクセル2003でデスクトップのフォルダーに保存してある写真を貼り付ける方法を教えて下さい。 今までは写真を右クリックで「コピー」を選択してエクセルで右クリックで「貼り付け」を選択すればよかったのですが、それが出来なくなりました? エクセル上で「挿入」からデスクトップのフォルダーに保存してある写真を選択して挿入という方法があると思います。 宜しくお願い致します。

  • エクセルの写真挿入方法で

    エクセルで写真を挿入する作業で、挿入セルにファイル名(例えば001.JP)を打ち込むと挿入される そんなことは可能でしょうか? 出来るのであれば、初心者にも分かるレベルで教えてください。 よろしく御願いします。

  • Excelでの挿入写真の作成日表示

    Excelで、挿入から貼り付けた写真の更新日時や作成日時をセル上に表示させる方法はないでしょうか。 関数、VBAどちらでも構いません。 よろしくお願いします。

  • エクセル マクロ 選択した複数シートにコメント挿入のやり方

    はじめて質問させていただきます。 エクセルのマクロで選択された複数シートに順番に コメントを挿入する・・というのをしたいのですが うまくいきません。 "Exs.Range("A1").AddComment"の部分で 「実行時エラー:1004 アプリケーション定義またはオブジェクト定義のエラーです」 となってしまいます。 マクロの記録で試そうとも思ったのですが、 複数シートを選択すると、右クリックしても コメント挿入のメニューが表示されませんでした。 元々、複数シートへのコメント挿入はできないのでしょうか・・? ソースは以下です。 Sub Macro1() Dim Exs As Worksheet Dim sSheet As Long Dim i As Long '選択されたシート数を取得 sSheet = ActiveWindow.SelectedSheets.Count i = 1 '選択されたシート数分、A1セルにコメントをつけていく Do While i <= sSheet ActiveWindow.SelectedSheets.Item(i).Activate Set Exs = ActiveWorkbook.ActiveSheet Exs.Range("A1").ClearComments Exs.Range("A1").AddComment Exs.Range("A1").Comment.Visible = True Exs.Range("A1").Comment.Text Text:=Chr(10) & "てすとー" Exs.Range("A1").Select i = i + 1 Loop End Sub お解かりになる方いらっしゃいましたら、 なにとぞよろしくお願いいたします。

  • Excelのコメントで図挿入について

    先日、セルまたは入力文字にカーソルを合わせた時のみ写真を表示したくてご質問し、コメントの画像挿入を教えて頂き出来たのですが別ファイルを持つ必要があります。Excelファイル内の写真を挿入することは難しいでしょか?

  • エクセルで写真を貼り付けるには?

    エクセルで写真を貼り付けるのは、普通にやるなら「挿入」の「図」で「ファイルから」を選べばできますが、そのやり方ではなくて、セルをダブルクリックしたらファイルの選択ウィンドウが出て、ファイルを選べばセルのサイズで貼り付け、というのが出来るはずなんですが、どうやるのでしょうか?