|
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.veriti.fr
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 ...
Date de création : 24/05/2005 - 19:16
Dernière modification : 25/05/2005 - 21:20
Catégorie : Commentaires
Page lue 3574 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 49
Haut 
