AW: Bild als Kommentar in Zelle einfügen
12.02.2006 18:53:19
Sonnenpeter
Hallo Ralf,
schau mal ob Du damit klar kommst?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim addRange As Range
Dim myCom As Object
Dim insPic As String
'Fügt im bezeichneten Bereich in die ausgewählte Zelle einen Kommtar ein
'und fügt ein zu definierendes Bild als Hintergrund ein
'Bezug bitte anpassen
Set addRange = Range("A1:A300")
If Intersect(Target, addRange) Is Nothing Then
'Ausstieg wenn mehrere Zellen
'markiert sind
Exit Sub
End If
If Target.Comment Is Nothing Then
Target.AddComment
With Target.Comment
.Text Text:=""
End With
insPic = Application.GetOpenFilename("Bilder (*.jpg; *.gif; *.bmp), *.txt, *.gif, *.bmp")
If insPic = "" Then
MsgBox "Keine Datei ausgewählt. Der Kommentar wird wieder gelöscht"
ActiveCell.Comment.Delete
End If
Set myCom = ActiveCell.Comment.Shape
With myCom
.Fill.UserPicture insPic
.Width = 100
.Height = 100
End With
End If
End Sub
Gruß Sonnenpeter