Discussion :

[Alasgard]

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 :

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

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"

Je vous remercie par avance pour vos réponses en espérant avoir été assez clair .

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_initialize()
Dim LeGraph As Chart
Dim NomImage As String
 
Set LeGraph = Worksheets("Feuil1").ChartObjects(1).Chart
NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
LeGraph.Export Filename:=NomImage, FilterName:="GIF"
Set LeGraph = Nothing
Me.Image1.Picture = LoadPicture(NomImage)
Kill NomImage
End Sub

[Alasgard]

Rapide, efficace et plus clair.
Merci énormément