如何判断word中插入的图片路径

wkcs520 2007-10-10 11:04:23
如何用vb实现获取word2003中插入的图片的原始路径如(C:\123.jpg)
...全文
612 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
yydpj 2007-10-16
  • 打赏
  • 举报
回复
录制宏,如下:
Sub Macro1()
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\...\My Documents\My Pictures\11.bmp").Select
End Sub

代码添加
...
fileOpen = Application.GetOpenFilename("样品照片(*.jpg;*.bmp;*.gif;), *.jpg;*.bmp;*.gif;,ËùÓÐÎļþ(*.*),*.*", , "所有文件")
...
v_jzho 2007-10-10
  • 打赏
  • 举报
回复
只有当 用代码添加图片,第二个参数linktofile设置为true的时候,才可以获得图片的原始路径
否则图片嵌入到文档中,不会记录原始路径的信息
Sub test()
ThisDocument.InlineShapes.AddPicture "D:\My Documents\My Pictures\1951.jpg", True
MsgBox ThisDocument.InlineShapes.Item(1).LinkFormat.SourceFullName
End Sub

5,138

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧