链接形式的网页图片转为内嵌图片
如果在文档中插入的图片是链接形式的，图片保存的文件夹位置移动了，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 对象成员

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。