Einfügen ein Online-Bild in Excel mit VBA

Ich bin derzeit an einem Projekt arbeiten und brauchen, um füllen Sie Zellen mit Bilder über URLs. Alle URLs sind in einer Spalte und ich möchte das laden der Bilder in einer angrenzenden Spalte. Ich bin kein VBA-Experte, aber ich fand einige code, der funktionierte, aber aus irgendeinem Grund bekomme ich eine Fehlermeldung (in der Regel 5 Bilder), die sagt:

Run-time error '1004':
Nicht in der Lage, um die Insert-Eigenschaft des Pictures-Klasse

Wieder, ich bin mit einem system, bei dem URLs in einer Spalte, d.h.:

xxxx.com/xxxx1.jpg

xxxx.com/xxxx2.jpg

xxxx.com/xxxx3.jpg

xxxx.com/xxxx4.jpg

Durch etwas suchen habe ich gefunden, es könnte mit meiner Excel-version (mit 2010), obwohl ich bin mir nicht ganz sicher.

Hier der aktuelle code, den ich verwende:

Sub URLPictureInsert()
Dim cell, shp As Shape, target As Range
    Set Rng = ActiveSheet.Range("a5:a50") ' range with URLs
    For Each cell In Rng
       filenam = cell
       ActiveSheet.Pictures.Insert(filenam).Select

  Set shp = Selection.ShapeRange.Item(1)
   With shp
      .LockAspectRatio = msoTrue
      .Width = 100
      .Height = 100
      .Cut
   End With
   Cells(cell.Row, cell.Column + 1).PasteSpecial
Next

End Sub

Jede Hilfe wäre sehr geschätzt werden!

Original-code Quelle: http://www.mrexcel.com/forum/excel-questions/659968-insert-image-into-cell-url-macro.html

Funktioniert bei mir... Wenn Sie eine Fehlermeldung erhalten, was ist der Wert von filenam?
Ich antwortete, eine sehr ähnliche Frage vor kurzem. lassen Sie mich sehen, ob ich es finden kann.
Versuchen Sie: stackoverflow.com/questions/15588995/...

InformationsquelleAutor Richard Oppenheimer | 2013-04-19

Dies ist eine fast identische Lösung gepostet, dass ich vor etwa einem Monat:

Excel-VBA-Bilder Einfügen Von Bild Name in Spalte

Sub InsertPic()
Dim pic As String 'file path of pic
Dim myPicture As Picture 'embedded pic
Dim rng As Range 'range over which we will iterate
Dim cl As Range 'iterator

Set rng = Range("B1:B7")  '<~~ Modify this range as needed. Assumes image link URL in column A.
For Each cl In rng
pic = cl.Offset(0, -1)

    Set myPicture = ActiveSheet.Pictures.Insert(pic)
    '
    'you can play with this to manipulate the size & position of the picture.
    ' currently this shrinks the picture to fit inside the cell.
    With myPicture
        .ShapeRange.LockAspectRatio = msoFalse
        .Width = cl.Width
        .Height = cl.Height
        .Top = Rows(cl.Row).Top
        .Left = Columns(cl.Column).Left
    End With
    '

 Next

 End Sub

David, vielen Dank für die Hilfe! Alles scheint zu funktionieren jetzt. Zwar ein bisschen peinlich, wie es aussieht ist die wichtigste Komponente fehlte, war der code zu gehen über alle Fehler: On Error Resume Next " Nach, dass, wie es aussieht, läuft alles reibungslos. Einzige Hürde hier ist, dass, wenn ich dieses für mehr als 200 Zeilen, excel abstürzt. Aber das ist eine schnelle Abhilfe und können ein problem mit meinem computer-setup.
On Error Resume Next sollte wohl vermieden werden. Ist es eine bessere Praxis, um die trap-Fehler und code auf mögliche Ausnahmen, anstatt einfach ignorieren, das ist, was diese Aussage bedeutet.

InformationsquelleAutor David Zemens

0

Ich weiß, dieser thread ist 5 Jahre alt, aber wollte nur sagen, dass es wirklich geholfen hat, mich mit einem Projekt.
Ich bin VBA verwenden, um Daten aus einer orders-Datenbank. Wenn ich auf eine Bestellung von denen Ergebnisse es bringt mehr details über die Bestellungen, darunter eine Bild-URL.
Das problem, das ich hatte, war, dass der obige code wurde entwickelt, um das Bild an die Stelle der URL. Ich wollte zu ersetzen, die dem Bild aus einer vorherigen Abfrage mit dem Bild von der neuen Abfrage. Nach einigen tweaks ich es geschafft habe, aber es war einfach legen Sie ein neues Bild über das alte Bild. In der Zeit meiner Excel-Datei kann sehr groß werden, so hier ist meine Lösung. Das einzige problem, das ich jetzt haben, ist, dass es löscht mein Firmenlogo, die ich auf das Blatt. Es kann ein Weg zu mehr Selektion, oder ich könnte Sie einfach ändern Sie die Prozedur legen Sie das logo aus einem anderen Blatt in der Arbeitsmappe jedes mal, wenn es löscht Bilder, aber das scheint ein bisschen kitschig.
```
Sub InsertPic()

Dim productImageUrl As String
Dim productImage As Picture     'Declare image picture object
Dim productImageUrlRng As Range 'Declare range object to contain image URL
Dim productImageRng As Range    'Location image will be placed
'Delete any existing pictures:


Set productImageRng = ActiveSheet.Range("J1:J15") 'Where I want to put the image
Set productImageUrlRng = Range("BA2")  'Cell containing image URL
productImageUrl = productImageUrlRng

productImageRng.Select
'productImageRng.Delete --Does not delete pictures in range
ActiveSheet.Pictures.Delete     'Delete existing images
Set productImage = ActiveSheet.Pictures.Insert(productImageUrl)

With productImage
    .ShapeRange.LockAspectRatio = msoTrue
    '.Width = productImageRng.Width
    .Height = productImageRng.Height
    ' .Top = Rows(cl.Row).Top
    ' .Left = Columns(cl.Column).Left
End With
End Sub
```
InformationsquelleAutor Electric Potato

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.