Versucht, ein Makro zu machen, die progressiv 3 Bilder in Excel fügtBild einfügen in Excel VBA, Methode Bilder fehlgeschlagen
Ein Arbeitsblatt (Bilder) enthält die URLs der Bilder in der Spalte A Zeile 1-3
Die Andere Arbeitsblätter (Outputs) sollen die Bilder horizontal ausgeben.
Es fügt das erste Bild ein, schlägt aber fehl, wenn die Schleife das zweite Bild erreicht.
"Insert-Methode von Bilder-Klasse ist fehlgeschlagen"
wenig Hilfe bitte?
Versuchen:
Dim link as Variant
Dann Ausgang der Wert und sehen, wo es schief läuft. Meine beste Vermutung ist, dass Ihre URL nicht so gelesen wird, wie Sie es erwarten würden.
Ich habe ein ähnliches Makro und ich hatte den gleichen Fehler. Für mich dieses half: 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
Die URL Fein gelesen wird. Ich habe eine Zeile Msgbox "link" direkt nach der Schleife eingefügt, um bereits zu überprüfen. Excel-Statusleiste zeigt auch das Herunterladen des Bildes, aber es gibt mir nur diese Fehlermeldung fehlgeschlagen. –
Und Sie sind 100% sicher, dass am Ende oder am Anfang keine zusätzlichen Leerzeichen vorhanden sind, solche Sachen? Ich habe alles gesehen, Zellwerte in VBA lesen ... – SBI