Hallo zusammen,
über
With Application.FileDialog(msoFileDialogFilePicker)...
wird eine Datei ausgewählt und in einer Zelle wird mit nachfolgendem Code ein Kommentar mit u.a. dem Dateinamen eingefügt:
...
With Cells(AktZeile, 6)
If .Comment Is Nothing Then
.AddComment
End If
.Comment.Visible = False
.Comment.Text Text:="Es ist folgendes Dokument hinterlegt:" & Chr(10) & Chr(10) & Dateiname_ohne_Pfad & Chr(10) & Chr(10) & _
"Mit einem Klick auf das Symbol" & _
" können sie die Datei öffnen !"
.Comment.Shape.TextFrame.AutoSize = True
End With
...
Nun möchte ich gerne die mittlere Zeile (also dort, wo der Dateiname steht) den Text fett formatieren. Vermutlich geht das, in dem man nach nach dem chr(10) sucht... aber ich bekomme das nicht auf die Reihe.
Könnte mir da bitte jemand behilflich sein ?
Besten Dank und viele Grüße
Stefan