こんにちは、皆さん。今日は、Microsoft Wordで複数の画像を連番付きで一括挿入する方法をご紹介します。特に、パソコン操作に不安がある方にもわかりやすく解説しますので、安心して進んでくださいね。
なぜ連番付き画像を一括で挿入したいのか？
Wordのイメージ
例えば、旅行の写真を整理してアルバムを作成したいときや、商品の画像をカタログにまとめたいときなど、複数の画像を順番に並べて挿入する場面があります。手動で一つ一つ挿入していくのはとても手間がかかりますよね。そこで、VBA（Visual Basic for Applications）を使って、画像を自動で挿入し、さらに連番を付けることで、作業を効率化できます。
VBAとは？
VBAとは、Microsoft Office製品（WordやExcelなど）に組み込まれているプログラミング言語です。これを使うことで、普段の操作を自動化したり、カスタマイズしたりすることができます。難しそうに思えるかもしれませんが、基本的なコードを覚えることで、日々の作業がぐっと楽になりますよ。
準備するもの
* Microsoft Wordがインストールされたパソコン
* 連番付きで挿入したい画像が保存されたフォルダ
* 画像のファイル名が「1.jpg」「2.jpg」「3.jpg」のように連番になっていること
実際にVBAを使ってみよう
まず、Wordを開き、VBAの編集画面を表示します。
- Wordを開き、「Alt」キーと「F11」キーを同時に押して、VBAの編集画面を表示します。
- 「挿入」メニューから「標準モジュール」を選択し、新しいモジュールを作成します。
- 以下のコードをコピーして、モジュールに貼り付けます。
Sub 連番付き画像を挿入()
Dim i As Integer
Dim imgPath As String
Dim img As InlineShape
Dim rng As Range
' 画像が保存されているフォルダのパスを指定
imgPath = "C:\画像フォルダ\"
' 1から10までの画像を挿入
For i = 1 To 10
' 画像のファイル名を作成
imgFile = imgPath & i & ".jpg"
' 新しいページを挿入
Selection.InsertBreak Type:=wdPageBreak
' 画像を挿入
Set rng = Selection.Range
Set img = rng.InlineShapes.AddPicture(FileName:=imgFile, LinkToFile:=False, SaveWithDocument:=True)
' 画像を中央揃え
img.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next i
End Sub
このコードでは、指定したフォルダ内の「1.jpg」から「10.jpg」までの画像を順番に挿入し、それぞれの画像を新しいページに中央揃えで配置します。
コードのポイント
imgPath: 画像が保存されているフォルダのパスを指定します。自分のパソコンの画像フォルダの場所に合わせて変更してください。
For i = 1 To 10: 1から10までの画像を挿入するループです。必要に応じて、数字を変更して挿入する画像の枚数を調整できます。
Selection.InsertBreak Type:=wdPageBreak: 新しいページを挿入するコマンドです。これにより、各画像が別々のページに配置されます。
InlineShapes.AddPicture: 画像を文書に挿入するコマンドです。画像のファイル名を指定することで、指定した画像が挿入されます。
img.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter: 挿入した画像を中央揃えにするコマンドです。
実行してみよう
コードを貼り付けたら、実際に実行してみましょう。
- VBAの編集画面で、「F5」キーを押すか、「実行」メニューから「Sub/UserFormの実行」を選択します。
- 表示されるダイアログボックスで「連番付き画像を挿入」を選択し、「実行」をクリックします。
これで、指定したフォルダ内の画像が順番にWord文書に挿入されます。画像の枚数や配置方法を変更したい場合は、コード内の数字やコマンドを適宜変更してください。
よくある質問
Q1: 画像の枚数が多い場合、どうすればよいですか？
コード内の「For i = 1 To 10」の数字を、挿入したい画像の枚数に合わせて変更してください。例えば、100枚の画像を挿入したい場合は、「For i = 1 To 100」とします。
Q2: 画像のサイズを変更したい場合はどうすればよいですか？
画像のサイズを変更するには、以下のコードを挿入します。
img.LockAspectRatio = msoFalse
img.Width = 150 ' 幅を150ポイントに設定
img.Height = 100 ' 高さを100ポイントに設定
このコードを画像を挿入した後に追加することで、画像のサイズを変更できます。
Q3: 画像の配置を左揃えや右揃えにしたい場合はどうすればよいですか？
画像の配置を変更するには、以下のコードを使用します。
img.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft ' 左揃え
img.Range.ParagraphFormat.Alignment = wdAlignParagraphRight ' 右揃え
このコードを画像を挿入した後に追加することで、画像の配置を変更できます。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
今回は、Word VBAを使って、複数の画像を連番付きで一括挿入する方法をご紹介しました。最初は難しそうに思えるかもしれませんが、コードを少し覚えるだけで、日々の作業がぐっと楽になります。ぜひ、実際に試してみてくださいね。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント