excel - 画像を Excel VBA に挿入、メソッド Pictures に失敗しました

Question

Excelで3枚の画像を段階的に挿入するマクロを作ってみた

1 つのワークシート (写真) には、列 A 行 1 ～ 3 の画像の URL が含まれています。

もう一方のワークシート (出力) は、画像を水平方向に出力することになっています。

Sub testinsertpix()
Dim i As Integer
Dim link As String

For i = 1 To 3
link = Worksheets("pics").Cells(i, "A").Value
Cells(1, i).Select
ActiveSheet.Pictures.Insert (link)

Next i

End Sub

最初の画像を挿入しますが、ループが 2 番目の画像に到達すると失敗します。

「Pictures クラスのメソッドの挿入に失敗しました」

少し助けてください？