Bonjour,
Je travaille sur un programme me permettant d'afficher un graphe dans un userform.
Pour se faire, je me suis servi ici: http://michel.vergriete.perso.sfr.fr/473excelvba.html
Voici le code après avoir au préalable rajouter grâce à la toolbox l'outil image :
Tout ça marche nickel mais malheureusement le fichier "temp.gif" reste enregistré sur le bureau après la manip', je me demandais donc s'il était possible de pouvoir le supprimer, ou si il y avait une autre méthode pour introduire un graphe dans un userform sans qu'il n'y ait besoin d'une création d'un ".gif"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub UserForm_initialize() Set LeGraph = Worksheets("Feuil1").ChartObjects(1).Chart NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" LeGraph.Export Filename:=NomImage, FilterName:="GIF" UserForm1.Image1.Picture = LoadPicture(NomImage) End Sub
Je vous remercie par avance pour vos réponses en espérant avoir été assez clair.
Partager