如何将Word文档中的所有链接图片转换为嵌入式图片？

Author: Siluvia Last Modified: 2025-05-07

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

然后当前文档中的所有链接图片都会同时被转换为嵌入式图片。