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

当您向其他人发送包含链接图像的Word文档时，图像将丢失并显示在收件人的计算机中，如下面的屏幕截图所示。如何在发送给其他人之前立即将所有链接的图像转换为嵌入式？本文提供了一个VBA方法来处理它。

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

1。打开Word文档包含您将转换为嵌入图像的链接图像。按其他 + 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

 键来运行代码。

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

CAD 批量打印演示