Word文書ですべてのリンク画像を埋め込みに変換するにはどうすればよいですか？

Author: Siluvia Last Modified: 2025-05-23

リンク画像を含むWord文書を他人に送信すると、以下のスクリーンショットに示すように、受信者のコンピュータで画像が欠落して表示されます。他人に送信する前に、すべてのリンク画像を一度に埋め込みに変換するにはどうすればよいですか？この記事では、それを解決するためのVBAメソッドを提供します。

Linked image that cannot be displayed

VBAコードを使用してリンク画像を埋め込みに変換する

VBAコードを使用してリンク画像を埋め込みに変換する

以下のVBAコードを適用して、文書内のすべてのリンク画像を埋め込みに変換してください。

1. 埋め込み画像に変換するリンク画像を含むWord文書を開きます。Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。そして、以下のVBAコードをモジュールウィンドウにコピーします。スクリーンショットをご覧ください：

VBA window with a module inserted

VBAコード: すべてのリンク画像を一度に埋め込みに変換する

Sub convert_all_inline_shapes()
'Updated by Extendoffice 20180906
    Dim xIShape As InlineShape
    For Each xIShape In ActiveDocument.InlineShapes
        With xIShape
            If .Type = wdInlineShapeLinkedPicture Then
                .LinkFormat.SavePictureWithDocument = True
                .LinkFormat.BreakLink
            End If
        End With
    Next
End Sub

3. コードを実行するためにF5キーを押します。

現在の文書内のすべてのリンク画像は同時に埋め込み画像に変換されます。