takın resim, yöntem Resimler

Question

bir satır 1-3

giderek Excel'de 3 görüntüleri

Bir çalışma sayfası (resimler) ekleyen bir makro yapmaya çalıştı Sütun görüntülerin URL içeriyor başarısız diğer çalışma sayfalarının (çıktılar) görüntüleri yatay olarak çıkarması gerekiyor.

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 

İlk resmi yerleştirir, ancak döngü ikinci resme ulaştığında başarısız olur.

Küçük yardıma lütfen "Pictures sınıfının ekleme yöntemi başarısız oldu"?

Answer 1

Dene:

Dim link as Variant 

Sonra çıkış değeri ve yanlış nereye gittiğini görüyoruz. En iyi tahminim, URL’nizin beklediğiniz gibi okunmamasıdır.

Answer 2

Benzer bir makro var ve aynı hatayı aldım. Benim için bu yardımcı: 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