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

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

リンクされた画像をVBAコードが埋め込まれたものに変換する

リンクされた画像をVBAコードが埋め込まれたものに変換する

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

1.埋め込み画像に変換するリンク画像が含まれているWord文書を開きます。を押します他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下の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 コードを実行するためのキー。

次に、現在のドキュメント内のすべてのリンクされた画像が同時に埋め込まれた画像に変換されます。