使用VBA在文件中插入和保存图像 - Excel 2013

Question

我正在为我的一个朋友制作一个宏,他需要在excel文档中导入一组图像,然后在其他计算机上使用该文档.我遇到的问题是,当在另一台计算机上打开此文档时,所有图像都消失了,而是你得到这些小错误标志,表明无法找到图像路径.

我已经在我自己的计算机上开发了宏,我有Excel 2007,对我来说,代码工作得非常好.我的朋友使用Excel 2013,显然,这两个版本如何处理图像导入和保存似乎有很大的不同.

总的来说,我发现了两种不同的插入图像的方法.我尝试的第一个类似于此:

Set pic = ActiveSheet.Pictures.Insert("C:\documents\somepicture.jpg")

第二种方式看起来像这样:

Set pic = Application.ActiveSheet.Shapes.AddPicture("C:\documents\somepicture.jpg", False, True, 1, 1, 1, 1)

在第二种方法的文档中,据说第三个参数(这里为True)负责用文档保存图片.

但是,这两种方法在最终结果中看起来大致相同:它们对我来说很好,但是如果它们在我的朋友的PC上用Excel 2013执行它将无法工作.所以我需要的是为更新的解决方案Excel版本(我从Excel 2010向上读过某些地方,有这些图像导入方法的错误或类似的东西).

Answer 1

在我的所有使用中，添加图片都会Insert引用硬盘上的文件，无论出于何种原因，如果您希望将图像嵌入到文件中，您必须添加一个形状，然后使用 ( 将图像放在形状AddPicture上就像你使用的那样），我从来没有遇到过任何问题。

另外，您将图片的高度和宽度指定为 1 像素，您几乎永远无法看到更高的真实设置，如下所示：

Application.ActiveSheet.Shapes.AddPicture "C:\documents\somepicture.jpg", False, True, 1, 1, 100, 100

我有一种感觉，它一直在起作用，只是你从来没有看到过这张照片，因为它太小了。