Word文書にファイル名を付けて複数の画像を挿入するにはどうすればよいですか?
Word文書では、[挿入]機能を使用して一度に複数の画像をすばやく挿入できます。ただし、画像を挿入する際にキャプションとしてファイルパスとファイル名を含める必要がある場合もあります。これは、画像の出典を参照することが重要なドキュメント、レポート、またはプレゼンテーションで特に役立ちます。
このチュートリアルでは、Word文書に複数の画像を効率的に挿入し、そのファイルパスとファイル名をキャプションとして追加する手順を説明します。これにより、画像をより効果的に管理できるようになります。
Kutools for Wordを使用してファイル名付きで複数の画像を挿入する
VBAコードを使用してファイル名付きで複数の画像を挿入する
次のVBAコードを使用すると、複数の画像を挿入し、そのファイルパスと名前をキャプションとして追加できます。以下の手順に従ってください:
- Alt + F11 を押して、Microsoft Visual Basic for Applications ウィンドウを開きます。
- クリックします 挿入 > モジュールそして、開かれたモジュールに次のコードを貼り付けます:
Sub PicWithCaption() Dim xFileDialog As FileDialog Dim xPath, xFile As Variant On Error Resume Next Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) If xFileDialog.Show = -1 Then xPath = xFileDialog.SelectedItems.Item(1) If xPath <> "" Then xFile = Dir(xPath & "\*.*") Do While xFile <> "" If UCase(Right(xFile, 3)) = "PNG" Or _ UCase(Right(xFile, 3)) = "TIF" Or _ UCase(Right(xFile, 3)) = "JPG" Or _ UCase(Right(xFile, 3)) = "GIF" Or _ UCase(Right(xFile, 3)) = "BMP" Then With Selection .InlineShapes.AddPicture xPath & "\" & xFile, False, True .InsertAfter vbCrLf .MoveDown wdLine .Text = xPath & "\" & xFile & Chr(10) .MoveDown wdLine End With End If xFile = Dir() Loop End If End If End Sub
- F5キーを押してコードを実行します。選択したフォルダー内の画像を選択できる[参照]ウィンドウが表示されます。
- [OK]をクリックすると、選択したフォルダー内のすべての画像が挿入され、そのファイルパスと名前がキャプションとして追加されます。
Kutools for Wordを使用してファイル名付きで複数の画像を挿入する
Kutools for Wordを使用することで、複数の画像をファイルパスと名前付きでWord文書に挿入する効率的な方法が提供されます。この機能は、手動でファイルの詳細を追加する場合と比較して時間を節約し、正確性を確保します。[画像]機能を使用すると、このタスクを簡単に実行できます。
Kutools for Wordをインストールした後、次の手順に従ってください:
- [Kutools] > [複数画像]をクリックします。
- ポップアップされた 画像を挿入 ダイアログボックスで、次の操作を行います:
- [ファイルを追加]または[フォルダーを追加]をクリックして、挿入したい画像を選択します。
- ダイアログボックスの左下にある「各画像のファイルパスをキャプションとして挿入」オプションをチェックします。
- 挿入ボタンをクリックして、画像を一括で挿入します。
- 画像を挿入すると、各画像のファイルパスと名前がキャプションとして追加されます。
最高のオフィス生産性ツール
Kutools for Word - 100以上の驚くべき機能でWordの操作体験を向上!
🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ(書式維持)/ スーパー トランスレート(書式維持)/ AI編集 / AI校正...
📘 文書マスター: ページの分割 / 文書の結合 / 選択範囲を様々な書式(PDF/TXT/DOC/HTMLなど)でソリューションをエクスポート / 一括PDF変換...
✏ テキスト編集: 複数ファイルを対象に一括検索と置換 /すべての画像をリサイズ / 表の行全体と列を転置 / 表をテキストに変換...
🧹 簡単クリーン:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクをすばやく削除 /さらに多くの削除ツールは「削除」グループでご利用いただけます...
➕ クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 詳細は「挿入」グループで発見...
🔍 高精度な選択: 特定のページや表、図形、見出し段落などをピンポイント選択 /さらに多くの 選択 機能でナビゲーションを強化...
⭐ スター強化: 任意の範囲へナビゲーション / 定型テキストの自動挿入 / 文書ウィンドウ間の切り替え /11 種の変換ツール...
🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただけます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40言語以上に対応!

✨ Kutools for Office –1回のインストールで5つのパワフルツールが使えます!
Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint を含む
📦5つのツール全てが1つのスイートに | 🔗 Microsoft Officeとシームレスに統合 | ⚡ 保存時間・生産性をすぐにアップ
最高のオフィス生産性ツール
Kutools for Word - 100+ のツールでWordをよりパワフルに
- 🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ / スーパー トランスレート / AI編集 / AI校正
- 📘 文書マスター: ページの分割 / 文書の結合 / 一括PDF変換
- ✏ テキスト編集: 一括検索と置換 /すべての画像をリサイズ
- 🧹 簡単クリーン:余分なスペースを削除 / セクション区切りを削除
- ➕ クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックスを挿入 / QRコードを作成
- 🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただける ―40以上の言語をサポート!