小编Ric*_*mer的帖子

我目前正在做一个项目，需要通过 URL 用图片填充单元格。所有 URL 都在一列中，我想加载相邻列中的图像。我不是 VBA 专家，但我发现了一些有效的代码，但由于某种原因，我收到一个错误（通常是 5 个图像），内容为：

运行时错误“1004”：无法获取图片类的插入属性

同样，我使用的系统是 URL 在一列中，即：

xxxx.com/xxxx1.jpg

xxxx.com/xxxx2.jpg

xxxx.com/xxxx3.jpg

xxxx.com/xxxx4.jpg

通过一些搜索，我发现它可以链接到我的 Excel 版本（使用 2010），尽管我不完全确定。

这是我正在使用的当前代码：

Sub URLPictureInsert()
Dim cell, shp As Shape, target As Range
    Set Rng = ActiveSheet.Range("a5:a50") ' range with URLs
    For Each cell In Rng
       filenam = cell
       ActiveSheet.Pictures.Insert(filenam).Select

  Set shp = Selection.ShapeRange.Item(1)
   With shp
      .LockAspectRatio = msoTrue
      .Width = 100
      .Height = 100
      .Cut
   End With
   Cells(cell.Row, cell.Column + 1).PasteSpecial
Next

End Sub

任何帮助将非常感激！

原始代码来源：http : //www.mrexcel.com/forum/excel-questions/659968-insert-image-into-cell-url-macro.html