Word链接形式的图片转为内嵌图片
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
链接形式的网页图片转为内嵌图片
如果在文档中插入的图片是链接形式的，图片保存的文件夹位置移动了，word中的图片将找不到地址无法显示，只能显示一个原始链接地址。
可在最初编辑时用下面的VBA代码把链接形式的图片转化为内嵌图片，就可随word 一起保存了，和原始地址无关，拷到哪里都能显示。
Sub SavePicture() '把插入的网页链接形式的图片转为内嵌图片保存在word中Dim i As InlineShape, j As Shape, N As Long
Application.ScreenUpdating = False '关闭屏幕刷新
For Each i In ActiveDocument.InlineShapes '遍历所有插入的InlineShape图形对象If i.Type = wdInlineShapeLinkedPicture Then
i.LinkFormat.SavePictureWithDocument = True
i.LinkFormat.BreakLink '断开源文件与指定图片之间的链接
N = N + 1 '计数
End If
Next i
For Each j In ActiveDocument.Shapes '遍历所有插入的Shape图形对象
If j.Type = msoLinkedPicture Then
j.LinkFormat.SavePictureWithDocument = True
j.LinkFormat.BreakLink '断开源文件与指定图片之间的链接。
N = N + 1 '计数
End If
Next j
MsgBox "共转换了链接图片" & N & "个!"
Application.ScreenUpdating = True '恢复屏幕刷新
End Sub
参考word帮助文档：
Word 开发人员参考
LinkFormat.SavePictureWithDocument 属性
如果指定的图片与文档一起保存，则该属性值为True。
Boolean类型，可读写。
语法
表达式.SavePictureWithDocument
表达式返回LinkFormat对象的表达式。
说明
本属性只适用于链接至图片的图形和嵌入式图形。
示例
当保存活动文档时，本示例保存定义为活动文档的第一个嵌入式图形的链接图片。
© 2010 Microsoft Corporation。
保留所有权利。
请参阅
LinkFormat 对象
LinkFormat 对象成员。