vba - VBA を使用して Excel にオンライン画像を挿入する

Question

私は現在プロジェクトに取り組んでおり、URL を介してセルに写真を入力する必要があります。すべての URL が 1 つの列にあり、隣接する列に画像をロードしたいと考えています。私は VBA の専門家ではありませんが、機能するコードをいくつか見つけましたが、何らかの理由で次のようなエラー (通常は 5 つの画像) が表示されます。

実行時エラー '1004': Pictures クラスの Insert プロパティを取得できません

繰り返しますが、URL が 1 つの列にあるシステムを使用しています。

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