Office: (Office 2013) Bilderlink (Hypertext) in Excel-Zelle als Bild anzeigen

Hallo,
Ich habe die untenstehende Anweisung aus einem älteren anderen Forumbeitrag befolgt und das funktioniert auch wunderbar mit Internet-Bilder-Links.

"Zitat ... mit folgender Funktion...

Einfach den folgenden Text in ein neues Modul kopieren:

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


Dann einfach die Funktion in die Zelle in der du das Bild haben willst schreiben: =InsertPicFromURL(Tabelle1!B1)"


In meinem Excel sind die Hypertexte jedoch keine Internet-Links, sondern Pfade auf Laufwerkordner, wo die Bilder gespeichert sind. Da funktioniert die obige Funktion nicht (Fehler "Wert" oder "Name"). Also habe ich das URL durch sPath ersetzt, doch dies funktioniert auch nicht (Fehler "Wert").

Kann mir jemand weiterhelfen, wie ich die obige Funktion anpassen muss, damit auch Pfad-Hypertexte als Bild angezeigt werden? Oder hat jemand eine andere Lösung, wie die Bilddateien in einer Excel-Zelle ohne manueller Copy-Paste-Vorgang angezeigt werden können?

:)

 

Hallo Chilli,

warum möchtest Du die Funktion umschreiben?
Du kannst in die Zelle statt des Internet-Links doch genauso den Link zur Datei reinschreiben, wie Du diese auch im Browser ansprechen kannst:
z. Bsp.:
file:///C:/OrdnerXY/BildXY.jpg