[XL-2010] Supprimer un .gif après insertion image dans userform

Supprimer un .gif après insertion image dans userform

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:

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 :).

Code:

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

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