26.07.2023, 08:16
Hallo zusammen
Sorry, im Voraus. Ich weiss, die Frage wurde schon X mal behandelt. Aber meine Anforderung habe ich so nicht gefunden.
Ich habe eine Exceltabelle. In der Zelle X2 steht jeweils eine URL. Ich möchte jetzt nur, dass in der Zelle X5 das Bild aus der URL dargestellt wird.
Grundsätzlich geht das schon mit dem folgenden Modul:
===================
Sub bildeinfuegen()
Function bildeinfuegenausURL(URL As String) As String
With ActiveSheet.Pictures.Insert(URL)
.top = Application.Caller.top + 1
.left = Application.Caller.left + 1
.ShapeRange.height = 300
End With
InsertPicFromURL = ""
End Function
===================
-> Das Problem ist aber, dass es das Bild immer und immer wieder in die Tabelle kopiert. Wie kann ich sicherstellen, dass jeweils nur das Bild aus
der aktuellen URL in der Tabelle ist?
Ich denke, das Bild muss einen Namen bekommen. Beim erneuten Laden muss das "alte" Bild gelöscht und das neue geladen werden.
Mit Excel kenne ich mit gut aus, mit VBA nicht. Kann mir jemand den Code anpassen?
Sorry, im Voraus. Ich weiss, die Frage wurde schon X mal behandelt. Aber meine Anforderung habe ich so nicht gefunden.
Ich habe eine Exceltabelle. In der Zelle X2 steht jeweils eine URL. Ich möchte jetzt nur, dass in der Zelle X5 das Bild aus der URL dargestellt wird.
Grundsätzlich geht das schon mit dem folgenden Modul:
===================
Sub bildeinfuegen()
Function bildeinfuegenausURL(URL As String) As String
With ActiveSheet.Pictures.Insert(URL)
.top = Application.Caller.top + 1
.left = Application.Caller.left + 1
.ShapeRange.height = 300
End With
InsertPicFromURL = ""
End Function
===================
-> Das Problem ist aber, dass es das Bild immer und immer wieder in die Tabelle kopiert. Wie kann ich sicherstellen, dass jeweils nur das Bild aus
der aktuellen URL in der Tabelle ist?
Ich denke, das Bild muss einen Namen bekommen. Beim erneuten Laden muss das "alte" Bild gelöscht und das neue geladen werden.
Mit Excel kenne ich mit gut aus, mit VBA nicht. Kann mir jemand den Code anpassen?