Grafiken in Zell Kommentar einfügen

Um eine Bild Datei (jpg, gif, png usw.) in einen Zell Kommentar einzufügen,

mit der rechten Maustaste auf den Rahmen des Kommentars drücken,
im Kontextmenü "Kommentar formatieren" wählen
Reiter "Farben und Linien" aktivieren
Dropdownfeld "Farbe" ->Fülleffekte wählen
Reiter "Grafik" aktivieren und "Grafik auswählen" drücken

Alternativ kann eine Grafik natürlich auch über eine VBA Prozedur eingefügt werden.

Hier der Basis VBA Code

--- BEGINN VBA

Public Sub Bild_Kommentar_einfuegen()

    Dim strPfadDatei As String
    Dim lngLetzteZeile As Long
    Dim objCom As Object
   
    strPfadDatei = "C:\Users\Mustermann\Desktop\zellkommentar.png"
   
    With Tabelle1
        lngLetzteZeile = .Range("A" & .Rows.Count).End(xlUp).Row
        For lngLetzteZeile = 1 To lngLetzteZeile
            If Not .Cells(lngLetzteZeile, 1).Comment Is Nothing Then
                .Cells(lngLetzteZeile, 1).Comment.Delete
            End If
            .Cells(lngLetzteZeile, 1).AddComment
'            strPfadDatei = .Cells(lngLetzteZeile, 1).Value
            Set objCom = .Cells(lngLetzteZeile, 1).Comment.Shape
            With objCom
                .Fill.UserPicture strPfadDatei
                .Width = 100
                .Height = 100
            End With
        Next lngLetzteZeile
    End With
End Sub

---ENDE VBA

Lern Video