メインコンテンツへスキップ
 

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

著者:シャオヤン 最終更新日:2024年09月14日

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

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

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

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


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

次の VBA コードを使用すると、複数の画像とそのファイル パスおよび名前をキャプションとして挿入できます。次の手順に従ってください。

  1. 抑えます Altキー+ F11 を開く アプリケーション向け Microsoft Visual Basic 窓。
  2. クリック インセット > モジュール開いたモジュールに次のコードを貼り付けます。
    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
    
  3. イベント F5 コードを実行します。 ブラウズ 画像を含むフォルダを選択できるウィンドウが表示されます。
  4. 写真を挿入するフォルダを選択してください

  5. クリック OK選択したフォルダー内のすべての画像が、ファイル パスと名前がキャプションとして含まれた状態で Word 文書に挿入されます。

    選択した画像はファイル名とともに文書に挿入されます


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

あなたがまだ Kutools for Wordそのと 画像 この機能を使用すると、ファイルパスと名前を含む複数の画像をWord文書にすぐに挿入できます。

Kutools for Word, AI搭載 🤖、タスクを簡素化する 100 以上の便利な機能を提供します。

インストールした後 Kutools for Word、次のようにしてください。

1. クリック クツール > 画像、スクリーンショットを参照してください:

リボンのKutoolsタブの画像オプション

2。 飛び出した 写真を挿入する ダイアログボックスで、以下の操作を行ってください。

  • (1)をクリック ファイルの追加 or フォルダの追加 挿入する画像を選択するボタン。
  • (2)次に確認する 各画像のファイルパスをキャプションとして挿入します ダイアログボックスの左下にあるオプション。
  • (3)そしてクリック インセット

画像挿入ダイアログボックス

3。 画像を挿入すると、各画像のファイルパスと名前も挿入されます。スクリーンショットを参照してください。

選択した画像はファイル名とともに文書に挿入されます

最高のオフィス生産性向上ツール

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!

🤖 Kutools AIの機能: コンテンツを生成する / テキストを書き換える / ドキュメントに関するQ&A / すぐに回答を得る / ドキュメントを翻訳する / ポーランド語文書(保存形式)...

📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換...

コンテンツ編集: 複数のファイルにわたるバッチ検索と置換 / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...

🧹 楽にお掃除: 掃き捨てる 余分なスペース / セクションブレーク / テキストボックス / ハイパーリンク / その​​他の取り外しツールについては、 削除します グループ...

クリエイティブインサート:挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の写真 / 詳細はこちら インセット グループ...

🔍 正確な選択: ピンポイント 特定のページ / テーブル類 / 形状 / 見出し段落 / ナビゲーションを強化する 他には? 選択 機能を使用...

スターの強化: 任意の場所に移動 / 繰り返しテキストの自動挿入 / ドキュメントウィンドウ間の切り替え / 11 変換 ツール...

Word リボンの Kutools および Kutools Plus タブ
👉 これらの機能を試してみませんか? 今すぐ Kutools for Word をダウンロードしてください! 🚀