Supportnet / Forum / Tabellenkalkulation
Bild in Kommentar einfügen
Frage
Servus!
Ist es möglich, ein Bild oder mehrere in einen Kommentar einzufügen.
Es geht mir darum, dass ich Bauteilnummer habe. Auf Wunsch möchte ich mir das dazugehörige Bild ansehen. Also mit Aus- und Einblendung
Dankeschön
Antwort 1 von nighty
hi all :)
ein beispiel :)
gruss nighty
Sub makro01()
On Error GoTo fehler
ActiveSheet.Pictures.Insert( _
"C:\Briefe\micha\jpg\zille.jpg").Select
mywidth = Selection.Width
myheight = Selection.Height
Selection.Delete
Range("C16").Comment.Delete
Range("C16").AddComment
Range("C16").Comment.Visible = False
Application.DisplayCommentIndicator = xlCommentAndIndicator
Range("C16").Comment.Shape.Select True
With Selection.ShapeRange
.Width = mywidth
.Height = myheight
End With
Selection.ShapeRange.Fill.UserPicture "C:\Briefe\micha\jpg\zille.jpg"
Range("C16").Select
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End
fehler:
If Err = 91 Then Resume Next
End Sub
ein beispiel :)
gruss nighty
Sub makro01()
On Error GoTo fehler
ActiveSheet.Pictures.Insert( _
"C:\Briefe\micha\jpg\zille.jpg").Select
mywidth = Selection.Width
myheight = Selection.Height
Selection.Delete
Range("C16").Comment.Delete
Range("C16").AddComment
Range("C16").Comment.Visible = False
Application.DisplayCommentIndicator = xlCommentAndIndicator
Range("C16").Comment.Shape.Select True
With Selection.ShapeRange
.Width = mywidth
.Height = myheight
End With
Selection.ShapeRange.Fill.UserPicture "C:\Briefe\micha\jpg\zille.jpg"
Range("C16").Select
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End
fehler:
If Err = 91 Then Resume Next
End Sub