Wie konvertiere ich Bild-URLs in tatsächliche Bilder in Excel?
Wenn Sie eine Liste mit Bild-URL-Adressen in Spalte A haben und jetzt die entsprechenden Bilder von den URLs herunterladen und in der angrenzenden Spalte B anzeigen möchten, wie im linken Screenshot gezeigt. Wie können Sie in Excel die tatsächlichen Bilder schnell und einfach aus den Bild-URLs extrahieren?
Konvertieren Sie die Bild-URLs in tatsächliche Bilder mit VBA-Code
Konvertieren Sie die Bild-URLs mit Kutools for Excel in tatsächliche Bilder
Konvertieren Sie die Bild-URLs in tatsächliche Bilder mit VBA-Code
Mit dem folgenden VBA-Code können Sie die tatsächlichen Bilder schnell aus den Bild-URL-Adressen extrahieren. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Konvertieren Sie die Bild-URLs in tatsächliche Bilder:
Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub
Anmerkungen:
- 1. Im obigen Code A2: A5 Ist der Zellenbereich, der die URL-Adressen enthält, aus denen Sie die Bilder extrahieren möchten, sollten Sie die Zellreferenzen an Ihre Bedürfnisse anpassen.
- 2. Mit diesem Code können Sie die Größe der extrahierten Bilder nicht Ihren Anforderungen entsprechend angeben.
- 3. Der obige Code kann nur die tatsächlichen Bilder in die Zellen neben Ihrer URL-Spalte extrahieren. Sie können keine Zelle für die Ausgabe der Bilder angeben.
- 4. Sie sollten über Grundkenntnisse des Codes verfügen. Wenn ein Zeichen fehlt oder falsch ist, wird der Code nicht erfolgreich ausgeführt.
3. Dann drücken F5 Geben Sie die Taste ein, um diesen Code auszuführen, und alle entsprechenden Bilder wurden sofort aus den Bild-URLs in die benachbarte Spalte extrahiert. Die Bilder werden in der Mitte Ihrer spezifischen Zellen platziert (siehe Screenshot).
Konvertieren Sie die Bild-URLs mit Kutools for Excel in tatsächliche Bilder
Wenn Sie mit dem VBA-Code nicht vertraut sind oder die Einschränkung des obigen Codes beheben möchten, Kutools for Excel's Bilder aus Pfad einfügen (URL) Mithilfe dieser Funktion können Sie die entsprechenden Bilder basierend auf den URL-Adressen oder dem spezifischen Pfad in Ihrem Computer schnell einfügen (siehe Abbildung unten). Klicken Sie hier, um Kutools für Excel herunterzuladen!
Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:
1. Klicken Sie Kutoolen > Insert > Bilder aus Pfad einfügen (URL)Stellen Sie im ausgeblendeten Dialogfeld die folgenden Vorgänge ein (siehe Screenshots):
2. Dann klick Ok Schaltfläche, und die Bilder werden aus den URLs extrahiert, siehe Screenshot:
Klicken Sie hier, um Kutools für Excel jetzt herunterzuladen und kostenlos zu testen!
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!