在工作簿中插入图片的问题

weide_yang · 发表于 2024-3-9 10:49

(说明：曾经求助得解过，可是现在不知道为什么代码无法使用了。)
当前工作薄所在的文件夹中有一个名叫“images”的文件夹。其中有N张图片。
当前工作薄中只有一张工作表。
想要用代码实现如下循环：
在当前工作薄中新建一张工作表，将图片文件夹中的第1张图片提取到这张工作表的D7单元格中，图片大小自动适应单元格的大小。
在当前工作薄中再新建一张工作表，将图片文件夹中的第2张图片提取到这张工作表的D7单元格中，图片大小自动适应单元格的大小。
以此类推，新建N张工作表以提取图片文件夹中的全部N张图片到当前工作薄中。

恳请老师帮助，谢谢！

请看附件。

new文件夹.zip (29 KB, 下载次数: 6)

weide_yang · 发表于 2024-3-10 17:31

自己顶一下。

weide_yang · 发表于 2024-3-10 17:36

附件中的以下代码通过不了，恳请老师看看能否解决，谢谢！
ActiveSheet.Pictures.Insert(File).Select

gwjkkkkk · 发表于 2024-3-10 19:21

估计你定义的File与系统有冲突。

gwjkkkkk · 发表于 2024-3-10 19:22

weide_yang 发表于 2024-3-10 17:36
附件中的以下代码通过不了，恳请老师看看能否解决，谢谢！
ActiveSheet.Pictures.Insert(File).Select

简单修改一下。。。

weide_yang · 发表于 2024-3-11 19:54

多谢gwjkkkkk老师帮助！可以解决问题了！非常感谢！

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

[求助] 在工作簿中插入图片的问题

评分