Office: (Office 2013) VBA prüfen ob Bild vorhanden ist dann einpflegen mit Hyperlink zu Original

Hallo zusammen, ich habe eine Tabelle, in welcher in einer Spalte per VBA überprüft wird, ob ein Bild im entsprechenden Verzeichnis abgelegt ist. Der Bildname steht in der Nachbarspalte (siehe Code). Der code überprüft also ob ein Bild existiert und schreibt mir dann "vorhanden" in die Zelle. das "vorhanden" ist mit einem Hyperlink hinterlegt unter welchem ich die Zieldatei aufrufen kann. Ich hätte nun gerne, dass nicht der text "vorhanden" erscheint, sondern direkt das entsprechende Bild in der zelle. Die größe soll sich dabei an der Zellgröße orientieren. Das bild selbst soll aber ebenfalls mit einem Link hinterlegt sein, über welchen ich die Datei in Originalgröße aufrufen kann. Falls kein Bild vorhanden ist, so soll mir der text "kein Bild vorhanden" ausgegeben werden. Kann man meinen Code irgendwie anpassen, sodass das ganze ohne große Umstände möglich ist?

Wichtig: ich arbeite aktiv in der Tabelle, das heißt ich lösche hin und wieder einträge und zeilen. Das heißt die bilder müssten sich mitbewegen, das heißt sie müssen wirklich in der zelle selbst liegen.

Liebe Grüße und vielen Dank vorab.



Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
If Intersect(Target, Range("HH8:HH" & Me.Rows.Count)) Is Nothing Then Exit Sub
For Each rngZelle In Target
If Dir("S:ProduktBilder" & "" & rngZelle) "" Then
Me.Hyperlinks.Add Anchor:=rngZelle.Offset(0, 1), _
Address:="S:ProduktBilder" & "" & rngZelle, _
TextToDisplay:="vorhanden"
End If
Next 'rngZelle
End Sub

:)