Picture.Insert 返回运行时错误"1004"

Question

我试图通过使用宏来在Excel中显示图片。我有一个Web URL列表，我想查看这些链接中包含的图片。

在线我找到了一些建议使用图片的解决方案。insert方法，但我无法使其起作用。到目前为止，这就是我得到的：

Sub InstallPictures()
  Dim i As Long, v As String
  For i = 2 To 1322
    v = Cells(i, "F").Value
    Worksheets("Sheet1").Pictures.Insert (v)
  Next i
End Sub

我使用的URL是测试是folllow的：http：//cache.lego.com/media/bricks/5/1/1/4667591.jpg我收到的错误消息是

运行时错误'1004'应用程序定义或对象定义的错误

关于我做错了什么的建议？

谢谢

Answer 1

尝试使您的代码尽可能简单。然后从那里进行测试：

Sub TestMe()    
    Dim v As String
    v = "http://cache.lego.com/media/bricks/5/1/4667591.jpg"
    Worksheets(1).Pictures.Insert (v)        
End Sub

这个适合您吗？如果是，请尝试在相应的单元格中写入v。

再试一次。它可以工作吗？如果是，请尝试制作循环！

再试一次。它可以工作吗？插入Sheet1而不是Worksheets(1)等。