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

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

VBA コードでリンク画像を埋め込み画像に変換する

---

VBA コードでリンク画像を埋め込み画像に変換する

次の VBA コードを使って、文書内のすべてのリンク付き画像を埋め込み画像に変換してください。

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

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

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キーを押して、コードを実行しましょう。

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