insérer graphe dans commentaire

Bonsoir

je sais que l'on peut insérer des images dans un commentaires mais pour un graphique, j'ai jamais vu.

En attendant qu'un pro nous trouve une solution, voici un sytème à 0.30 C d'euro.

Attention âmes sensibles s'abstenir parce que tiré par les cheveux

Salut
Hervé

Ok, merçi, je vais éssayer avec ça.
C'est tiré par les cheveux, mais pas bête du tout!lol
@+

au fait, j'ai trouvé encore plus tiré par les cheveux : il faut faire le graphe normalement, faire Imprime Ecran, puis retoucher l'image avec un logiciel.
Enfin, on insére l'image obtenue dans le graphe!
Qu'en pensez vous?
Bon, c'est vrai que c'est vraiment une méthode bizar, non?lol
Bonne soirée.

re

Ben tu sais parfois on est plus à un bizarre près.

Par contre avec ta méthode bizarre ton graph reste dynamique ?

Salut
Hervé

Non, c'est vrai que mon graphe ne reste pas dynamique puisque ce n'est qu'une photographie du graphe à un instant t.
Il n'y a donc pas de mise à jour possible, à moins de refaire un Imprime Ecran!
Zut, pour une fois que je croyais avoir trouvé quelque chose!
Bonne soirée à vous.

bonsoir jpdestetienne!, Hervé , le forum,

pas mal, en effet, ce système à sytème à 0.30 C d'euro

Bonsoir les gens de ce fil et toi le forum,

tiens je passe par ici car l'idée du commentaire me plait bien... ;-)

tout comme Hervé, je vous donne une procédure, mais à Vincentime d'€ ... niark!

'================================================
Option Explicit
'=======ajouter l'image du graph dans un commentaire
Sub Ajoute_Graph_Commentaire()
'VériTi
'http://veriti.free.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
'================================================

le principe est simple :

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

L'avantage, est que la mise à jour est dynamique ... Alors 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 ... çà j'vous laisse gérer ... lol

...c'est dommage qu'on ne puisse pas avoir de la couleur sur le post pour les macros ... :-(

Bonne programmation

A+ Vériland

PS: J'suis MDR Lien supprimé ... lol

tiens bonne fête Albert ... ;-)

merci Vériland,
albert est un pseudo, mais ça fait toujours plaisir.

Je garde toujours en mémoire ton intervention pour me tirer d'affaire - je devrais dire : pour me sortir de l'impasse-(toi et Ti) lorsque j'ai voulu faire ma première UserForm

je vais regarder ce code Vincentime d'€ que tu nous propose

Bonjour à tous

Impec Vériland, ca c'est un système à au moins 100 €.

Salut
Hervé