Word文書にファイル名を付けて複数の画像を挿入するにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-08-06

Word文書では、[挿入]機能を使用して一度に複数の画像をすばやく挿入できます。ただし、画像を挿入する際にキャプションとしてファイルパスとファイル名を含める必要がある場合もあります。これは、画像の出典を参照することが重要なドキュメント、レポート、またはプレゼンテーションで特に役立ちます。

このチュートリアルでは、Word文書に複数の画像を効率的に挿入し、そのファイルパスとファイル名をキャプションとして追加する手順を説明します。これにより、画像をより効果的に管理できるようになります。

VBAコードを使用してファイル名付きで複数の画像を挿入する

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キーを押してコードを実行します。選択したフォルダー内の画像を選択できる[参照]ウィンドウが表示されます。

Select a folder to insert pictures from

[OK]をクリックすると、選択したフォルダー内のすべての画像が挿入され、そのファイルパスと名前がキャプションとして追加されます。

Kutools for Wordを使用してファイル名付きで複数の画像を挿入する

Kutools for Wordを使用することで、複数の画像をファイルパスと名前付きでWord文書に挿入する効率的な方法が提供されます。この機能は、手動でファイルの詳細を追加する場合と比較して時間を節約し、正確性を確保します。[画像]機能を使用すると、このタスクを簡単に実行できます。

Kutools for Wordについて、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

Kutools for Wordをインストールした後、次の手順に従ってください：

[Kutools] > [複数画像]をクリックします。
ポップアップされた 画像を挿入 ダイアログボックスで、次の操作を行います：
- [ファイルを追加]または[フォルダーを追加]をクリックして、挿入したい画像を選択します。
- ダイアログボックスの左下にある「各画像のファイルパスをキャプションとして挿入」オプションをチェックします。
- 挿入ボタンをクリックして、画像を一括で挿入します。
画像を挿入すると、各画像のファイルパスと名前がキャプションとして追加されます。