Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.Path
HyName = Pfad & "\" & Cells(zeile, spalte).Hyperlinks(1).Address
MsgBox HyName
With Cells(zeile, spalte)
.AddComment
'.Comment.Text Text:=HyName 'Pfad & Dateiname in Kommentar laden
Set mycom = .Comment.Shape
With mycom
.Fill.UserPicture Cells(zeile, spalte).Hyperlinks(1).Address 'Bild in Kommentar einfügen
.Width = 300
.Height = 200
End With
End With
End If
Hier werden anhand des Hyperlinks Vorschaubilder in den Kommentar geladen. Keine Angst, vor dem Speichern werden diese wieder rausgelöscht und beim Starten wird rein. So bleibt die Datei klein. Es funktioniert auch alles. Aber "plötzlich und unerwartet" bleiben die Kommentar-Kästchen leer. Hat einer von Euch Experten eine Idee, was ich verkehrt gemacht haben könnte ?
Im Voraus herzlichen Dank.
Gruß
Stefan K.