veriti site des amis d'excel

Pour celà il faut qu'il y ait un graphique sur le feuille ... ainsi en activant cette macro ...

1) on enregistre le graph - présent sur la feuille - dans le répertoire courant sous forme image (ici GIF)

2) si la cellule active contient un commentaire on le supprime (sinon y'a beug)

3) puis on rajoute l'image du graph dans le commentaire de la cellule active ...

Code à placer dans un module

Option Explicit

Sub Ajoute_Graph_Commentaire()
'VériTi
'http://www.excel.veriti.net
    Dim AncienCom As Variant
    Dim Chemin As String
    Dim graphique As Chart
'=======chemin de l'image ici répertoire courant
    Chemin = ThisWorkbook.Path & "Graph1.gif"
'=======on sélectionne le graph puis on l'enregistre (format Gif)
    Set graphique = Worksheets("Feuil1").ChartObjects(1).Chart
    graphique.Export Filename:=Chemin
'=======si la cellule contient un commentaire on supprime
    Set AncienCom = ActiveCell.Comment
    If Not AncienCom Is Nothing Then ActiveCell.Comment.Delete
    Set AncienCom = Nothing
'=======on place le nouveau commentaire avec l'image
    With ActiveCell
        .AddComment
        .Comment.Visible = False
        .Comment.Shape.Fill.UserPicture Chemin
    End With
End Sub

L'avantage, est que la mise à jour est dynamique ... bien entendu, le mieux est de placer cette procédure dans une macro évènementielle ... genre lorsqu'on sélectionne une cellule précise par exemple ...