Gern geschehen. :)
Eine kleine Ergänzung noch:
1 2 3 4 5 6 7 8 9 10 11 | Private Sub HandleFile(Cell As Excel.Range, TextToDisplay As String , FullFilename As String )
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.
|