|
Gern geschehen. :)
Eine kleine Ergänzung noch:
Private Sub HandleFile(Cell As Excel.Range, TextToDisplay As String, FullFilename As String)
'HINWEIS:
' Anhand von FullFilename könnte man hier weitere Unterscheidungen treffen,
' auf welche Art man diese Datei/Bild verarbeitet (z.B. unterschiedl. Positionierung).
' WENN du diese Information hier nicht benötigst, dann entferne den Parameter am besten,
' denn man sollte nur das deklariert haben, was auch benutzt wird (der Grund dafür sollte klar sein).
' Hyperlink setzen
Call Cell.Worksheet.Hyperlinks.Add(Cell, FullFilename, , , TextToDisplay)
Der Parameter FullFilename wird hier natürlich beim Hyperlink setzen benötigt; das Entfernen des Parameters würde also gar nicht gehen.
Beim Schreiben des mehrzeiligen Kommentars war ich mir nur unsicher, ob du da wirklich den Link auf die PNG-Datei setzen möchtest, oder nicht doch auf etwas anderes verweisen willst.
Ich hoffe das hat dich nicht verwirrt.
|