当您发送Word文档包含与他人的链接图像时,这些图像将丢失并显示在收件人的计算机中,如下面的屏幕快照所示。 在发送给其他人之前,如何一次将所有链接的图像转换为嵌入的图像? 本文提供了一种VBA方法来处理它。


使用VBA代码将链接的图像转换为嵌入式图像

请应用下面的VBA代码将文档中的所有链接图像转换为嵌入式图像。

1.打开Word文档,其中包含将转换为嵌入式图像的链接图像。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 在里面 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块。 然后将下面的VBA代码复制到 模块 窗口。 看截图:

VBA代码:一次将所有链接的图像转换为嵌入的图像

1

2

3

4

5

6

7

8

9

10

11

12

Sub convert_all_inline_shapes()

    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 键来运行代码。

然后,将当前文档中的所有链接图像同时转换为嵌入的图像。

Oh 游读者 👋
It’s nice to meet you.

每周三,您都将收到一封内容详实的Newsletter.

close

Oh 游读者 👋
It’s nice to meet you.

每周三,您都将收到一封内容详实的Newsletter.