vba - 我可以使用 VBA 将网络图像 (gif) 导入到 Excel 中吗？

Question

我有一个 Excel 工作表中 .gif 文件的 URL 列表。我想使用 VBA 查询这些网站并将这些图像插入到同一个工作表中。我使用的是 Excel 2007。

我尝试使用“获取外部数据 - 从网络”功能来查询网站，但返回了以下错误:

“无法打开 http://.../blah.GIF。互联网站点无法返回您请求的对象。(HTTP/1.0 403)”

这是因为Excel无法使用此功能导入在线图像吗？或者这个问题是否与网站具体相关？

最重要的是，是否有其他方法可以完全在 VBA 中完成此操作？

Answer 1

是的，你可以这样做。这实际上很容易。 Excel有一个AddPicture函数。来自 Excel VBA 帮助:

表达式.AddPicture(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

像这样使用:

Sheets(1).Shapes.AddPicture "http://www.mywebsite.com/images/map.gif" _
                          , msoFalse, msoTrue, 100, 100, 500, 600

左、上、宽和高均为必填项，单位为磅。