挿入画像、方法写真は

Question

が徐々にエクセル

3枚の画像を挿入するマクロ

1つのワークシート（写真）を作ってみました失敗した行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番目のイメージに到達すると失敗します。

は

リトルヘルプをしてください "写真クラスのInsertメソッドは失敗しましたか"？

Answer 1

試してみてください。そして、

Dim link as Variant 

出力値と、それは間違って起こっている場所を確認。私の最高の推測では、あなたの期待通りのあなたのURLは読まれていないということです。

Answer 2

私は同様のマクロを持っており、私は同じエラーがありました。 私にとってこれは役に立ちました：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