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

Question

我正在为我的一个 friend 开发一个宏，他需要在 Excel 文档中导入一组图像，然后在其他计算机上使用该文档。我遇到的问题是，当在另一台计算机上打开此文档时，所有图像都消失了，而是出现了这些小错误迹象，表明找不到图像路径。

我在自己的计算机上开发了该宏，其中装有 Excel 2007，对我来说，代码运行得非常好。我的 friend 使用 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)负责将图片与文档一起保存。

然而，这两种方法在最终结果中看起来或多或少是相同的:它们对我来说工作得很好，但如果在我 friend 的电脑上使用 Excel 2013 执行它们就不起作用。所以我需要的是一个解决方法对于较新的 Excel 版本(我在某处读到，从 Excel 2010 开始，这些图像导入方法存在错误或类似的情况)。

Answer 1

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

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

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

我有一种感觉，它一直在工作，只是你从来没有看到过图片，因为它太小了。