Question

我正在尝试使用宏来显示excel中的图片。我有一个网址列表，我想看到这些链接中包含的图片。

在线我发现了一些建议使用Picture.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

我用作测试的网址如下：http://cache.lego.com/media/bricks/5/1/4667591.jpg 我收到的错误信息是

运行时错误＆＃39; 1004＆＃39;应用程序定义或对象定义的错误

关于我做错了什么建议？

由于

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)，依此类推。

Picture.Insert返回运行时错误＆＃39; 1004＆＃39;

1 个答案: