欢迎来到天天文库
浏览记录
ID:58371531
大小:21.00 KB
页数:2页
时间:2020-04-30
《Word链接形式的图片转为内嵌图片.doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、链接形式的网页图片转为内嵌图片如果在文档中插入的图片是链接形式的,图片保存的文件夹位置移动了,word中的图片将找不到地址无法显示,只能显示一个原始链接地址。可在最初编辑时用下面的VBA代码把链接形式的图片转化为内嵌图片,就可随word一起保存了,和原始地址无关,拷到哪里都能显示。SubSavePicture()'把插入的网页链接形式的图片转为内嵌图片保存在word中DimiAsInlineShape,jAsShape,NAsLongApplication.ScreenUpdating=False'关闭屏幕刷新ForEachiInActive
2、Document.InlineShapes'遍历所有插入的InlineShape图形对象Ifi.Type=wdInlineShapeLinkedPictureTheni.LinkFormat.SavePictureWithDocument=Truei.LinkFormat.BreakLink'断开源文件与指定图片之间的链接N=N+1'计数EndIfNextiForEachjInActiveDocument.Shapes'遍历所有插入的Shape图形对象Ifj.Type=msoLinkedPictureThenj.LinkFormat.Save
3、PictureWithDocument=Truej.LinkFormat.BreakLink'断开源文件与指定图片之间的链接。N=N+1'计数EndIfNextjMsgBox"共转换了链接图片"&N&"个!"Application.ScreenUpdating=True'恢复屏幕刷新EndSub参考word帮助文档:Word开发人员参考LinkFormat.SavePictureWithDocument属性如果指定的图片与文档一起保存,则该属性值为True。Boolean类型,可读写。语法表达式.SavePictureWithDocument
4、表达式 返回LinkFormat对象的表达式。说明本属性只适用于链接至图片的图形和嵌入式图形。示例当保存活动文档时,本示例保存定义为活动文档的第一个嵌入式图形的链接图片。VisualBasicforApplicationsSetmyPic=ActiveDocument.InlineShapes(1)IfmyPic.Type=wdInlineShapeLinkedPictureThenmyPic.LinkFormat.SavePictureWithDocument=TrueEndIf©2010MicrosoftCorporation。保留所
5、有权利。请参阅·LinkFormat对象·LinkFormat对象成员
此文档下载收益归作者所有