当您将包含链接图片的 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 键即可运行代码。

这样，当前文档中的所有链接图片将会同时转换为嵌入式图片。