Bilder zu URLs anzeigen
12.02.2020 19:54:04
Kisska
ich suche nach einem einfachen Makro für meine persönliche Mappe, um Bilder aus den URLs anzeigen zu lassen.
Mein Tabellen-Aufbau:
A2 bis A27: Artikelnummer
B2 bis A27: Buchstabe
C2 bis A27: URL (URL setzt sich zusammen aus Text sowie Eingabe in den Spalten A und B)
D2 bis A27: hier sollen die Bilder zu den URLs aus der Spalte C angezeigt werden
Im Internet habe ich eine Lösungsvariante über Funktionen gefunden:
https://www.computerbase.de/forum/threads/internet-bild-link-in-excel-anzeigen.1215653/
Code lautet:
Function InsertPicFromURL(URL As String) As String
With ActiveSheet.Pictures.Insert(URL)
.Top = Application.Caller.Top + 1
.Left = Application.Caller.Left + 1
.Height = Application.Caller.Height - 2
End With
InsertPicFromURL = ""
End Function
Über diese Formel ab D2 lassen sich die Bilder tatsächlich anzeigen:
=PEROSONAL.XLSB!nsertPicFromURL(C2)
Was mir bei dieser Lösung nicht gefällt:
Wenn ich neue Daten in A und B eingebe bzw. einkopiere, dann verändern sich meine zusammengesetzten Hyperlinks in der Spalte C, aber in der Spalte D werden keine neuen Bilder automatisch erzeugt. Dafür muss man die Zellen D2 bis D27 mit Enter abschließen oder jeweils F2 drücken. Das ist umständlich.
Man könnte mit diesem Makro das Blatt neu berechnen: ActiveSheet.Cells.Dirty
aber diese Prozedur beansprucht viel Leistung und dauert recht lange oder es ist diese Funktion, die Prozesse verlangsamt.
Darum die Frage: Gibt es eine bessere Lösung, die nicht soviel Rechnerleistung beansprucht? Nach einer Eingabe/Einkopieren neuer Daten in A und B sollen neue Bilder in D in Abhängigkeit der URLs in C angezeigt werden, vorher müssen aber die alten Bilder gelöscht werden.
Mir ist es egal, ob die Bilder interaktiv zu den URLs angezeigt werden oder erst nach Ausführen des Makros.
Viele Grüße
Kisska