将图片插入Excel VBA,方法图片失败

时间:2013-05-16 07:49:31

标签: excel vba insert image

尝试制作一个在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

插入第一张图像,但在循环到达第二张图片时失败。

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

请帮忙吗?

2 个答案:

答案 0 :(得分:0)

尝试:

Dim link as Variant

然后输出值并查看它出错的地方。我最好的猜测是你的网址没有按照你期望的方式阅读。

答案 1 :(得分:0)

我有一个类似的宏,我有同样的错误。 对我来说这有帮助:On error resume next

Sub INSERTPICTURES()
With Sheets("Condition_report")
    Dim cella As Range

    For Each cella In .Range("A1:A10000").Cells

        If cella.Interior.ColorIndex = 3 Then

        ActiveSheet.Shapes.AddPicture Filename:=cella, LinkToFile:=msoFalse, SaveWithDocument:=msoCTrue, Left:=cella.MergeArea.Left, Top:=cella.MergeArea.Top, Width:=cella.MergeArea.Width - 3, Height:=cella.MergeArea.Height
        On Error Resume Next

        End If
    Next
End With
End Sub