插入Picture类的属性

Question

我已阅读此处有关此主题的所有问题，但没有一个为我提供可行的解决方案，因此我要问这个问题。

我在 Windows 7 中运行 Excel 2013 的合法副本。我在插入图片的位置记录了一个宏，并在打开的文件对话框中粘贴了以下 URL：（http://ecx.images-amazon.com/images/I/41u%2BilIi00L._SL160_.jpg只是亚马逊上产品的图片）。这按预期工作。

生成的宏如下所示：

Sub insertImage()
'
' percent Macro
'

'
    ActiveSheet.Pictures.Insert( _
        "http://ecx.images-amazon.com/images/I/41u+ilIi00L._SL160_.jpg").Select
End Sub

但是，当我尝试运行此命令时，Insert换行会出现以下错误：

Run-time error '1004':

Unable to get the Insert property of the Picture class

我正在尝试将一些图片插入到 Excel 文档中，并且我正在使用该ActiveSheet.Pictures.Insert方法来执行此操作。我在那里遇到了这个问题，所以我以其他人可以复制的方式重新创建了它，以方便获得答案......

需要注意的一个有趣的事情是：

http://ecx.images-amazon.com/images/I/41u%2BilIi00L._SL160_.jpg 'This is what I pasted
http://ecx.images-amazon.com/images/I/41u+ilIi00L._SL160_.jpg 'This is what the recorded macros recorded

看起来 Excel 自动将 解析%2B为+. 我尝试做出改变，但没有成功。

另一个值得注意的有趣的事情是，有时这有效，有时则无效。这个url是不起作用的情况。这是它的作用之一：http://ecx.images-amazon.com/images/I/51mXQ-IjigL._SL160_.jpg

为什么Excel会生成无法运行的宏？更重要的是，我怎样才能避免这个错误并继续我的工作！？谢谢！

Answer 1

尝试这个解决方法：

Sub RetrieveImage()
Dim wsht As Worksheet: Set wsht = ThisWorkbook.ActiveSheet
wsht.Shapes.AddPicture "http://ecx.images-amazon.com/images/I/41u+ilIi00L._SL160_.jpg", _
                    msoFalse, msoTrue, 0, 0, 100, 100
End Sub

所有字段都是必需的，这有点令人失望，因为您无法获得默认大小。位置偏移和大小以像素/点为单位。另外，%转向+也没关系，因为%会导致它不被识别（不知道为什么）。

结果：

让我们知道这是否有帮助。