VBA批量插入图片到多个工作簿指定单元格

tx12_vip · 发表于 2019-9-8 19:59

VBA批量插入图片到多个工作簿指定单元格，所需内容在同一文件夹，一个工作表多个工作簿。
指定单元格就是图片的名称，只是没有图片格式。所有图片均是.PNG格式。
感谢帮忙

祝洪忠- · 发表于 2019-9-8 21:35

https://mp.weixin.qq.com/s?__biz ... e=0#wechat_redirect

可以参考一下

朱荣兴 · 发表于 2019-9-9 00:15

提示: 作者被禁止或删除内容自动屏蔽

tx12_vip · 发表于 2019-9-9 00:19

祝洪忠- 发表于 2019-9-8 21:35
https://mp.weixin.qq.com/s?__biz=MjM5NTcxODg0MA==&mid=2689804223&idx=2&sn=2beea37e1293cc19c62382dd09 ...

看了帖子，请问老师要是每个工作簿都自动插入能实现么？意思就是说每个工作簿的I1单元格有图片的名称，然后运行宏之后每个图片都自动插入到对应的工作簿的I1

tx12_vip · 发表于 2019-9-9 00:21

朱荣兴发表于 2019-9-9 00:15
这类的代码论坛堕入牛毛，回的帖子太多了，我的主题里面就有分享，可以自己去看看

但是老师他们的每一个需求都不相同，我有点笨。

摸不到的颜色 · 发表于 2019-9-9 08:44

Sub 插入图片()
Application.ScreenUpdating = False
For Each sht In Sheets
If sht.Range("i1") <> "" Then
If Dir(ThisWorkbook.Path & "" & sht.Range("i1") & ".png") <> "" Then
sht.Shapes.AddPicture ThisWorkbook.Path & "" & sht.Range("i1") & ".png", True, True, Range("i2").Left, -1, -1, -1
End If
End If
Next
Application.ScreenUpdating = True
MsgBox ("插入完成")
End Sub

复制代码

tx12_vip · 发表于 2019-9-9 10:50

摸不到的颜色发表于 2019-9-9 08:44
Sub 插入图片()

Application.ScreenUpdating = False

感谢帮助，还未测试，先谢谢啦

tx12_vip · 发表于 2019-9-9 11:33

摸不到的颜色发表于 2019-9-9 08:44

老师，假如我需要设定插入图片的宽和高，怎么办

摸不到的颜色 · 发表于 2019-9-9 11:45

tx12_vip 发表于 2019-9-9 11:33
老师，假如我需要设定插入图片的宽和高，怎么办

11.sht.Shapes.AddPicture ThisWorkbook.Path & "" & sht.Range("i1") & ".png", True, True, Range("i2").Left, -1, -1, -1

修改红色的两个 -1 ，前面为图片的宽度，后面为高度（以磅为单位）。

具体请参考 Shapes.AddPicture 方法

tx12_vip · 发表于 2019-9-9 12:22

摸不到的颜色发表于 2019-9-9 11:45
11.sht.Shapes.AddPicture ThisWorkbook.Path & "" & sht.Range("i1") & ".png", True, True, Range("i ...

真真感谢，一会测试

		自动登录	找回密码
密码			免费注册

[求助] VBA批量插入图片到多个工作簿指定单元格

评分

评分

评分

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-9-9 00:15 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报