插入图片到Excel VBA，方法图片失败

尝试制作一个在 Excel 中逐步插入 3 个图像的宏

一张工作表（图片）包含 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

它确实插入了第一张图像，但当循环到达第二张图片时失败。

“图片类的插入方法失败”

请帮忙一点？

Try:

Dim link as Variant

然后输出这个值，看看哪里出错了。我最好的猜测是您的 URL 没有按照您期望的方式被读取。