VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 518|回复: 6

请教一个插入图片的问题

[复制链接]
发表于 2019-8-27 21:11:31 | 显示全部楼层 |阅读模式
用这个过程向EXCEL单元格插入图片后为什么存在链接呢?图片所在的文件夹删除或者图片路径改变了就无法在EXCEL中正常显示图片?有什么办法弄成“插入图片”这种永久型的?
Sub Pict(x, y, z As String)
  With Sheets("SHEET1").Pictures.Insert(Pict_Selt & z)
    .ShapeRange.LockAspectRatio = msoFalse
    .Placement = xlMoveAndSize
    .ShapeRange.Left = Range(x).Left
    .ShapeRange.Top = Range(x).Top
    .ShapeRange.Height = Range(x & ":" & y).Height
    .ShapeRange.Width = Range(x & ":" & y).Width
  End With
 楼主| 发表于 2019-8-28 16:37:02 | 显示全部楼层
好像这是office2010及以后版本的bug,求高手支持,谢谢!
回复 支持 反对

使用道具 举报

发表于 2019-8-28 18:03:57 | 显示全部楼层
试试录制宏,看看自动生成的代码是什么样的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-8-28 19:45:59 | 显示全部楼层
第一次录制宏用插入图片一切正常,第二次执行宏后和用代码的效果一样,改变图片路径后图片不可显示。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-8-28 19:46:18 | 显示全部楼层
第一次录制宏用插入图片一切正常,第二次执行宏后和用代码的效果一样,改变图片路径后图片不可显示。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-8-28 19:47:18 | 显示全部楼层
Apple_0 发表于 2019-8-28 18:03
试试录制宏,看看自动生成的代码是什么样的。


第一次录制宏用插入图片一切正常,第二次执行宏后和用代码的效果一样,改变图片路径后图片不可显示。
回复 支持 反对

使用道具 举报

发表于 3 天前 | 显示全部楼层
这是版本不一样,需要多次调试。2010年的代码可能是这样,2007的可能又不一样;WPS又不一样。你要先判断版本,准备多个代码就好了。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-11-12 13:38

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表