exene
XLDnaute Accro
Bonjour,
J'utilise un code permettant de transformer un graphique en image puis de l'importer dans un UserForm. Depuis le passage à excel 2010, le code provoque une erreur
erreur d'exécution 481 : image incorrecte
Voici le code
Pourriez vous m'aider à modifier ce code ?
Merci.
@+
J'utilise un code permettant de transformer un graphique en image puis de l'importer dans un UserForm. Depuis le passage à excel 2010, le code provoque une erreur
erreur d'exécution 481 : image incorrecte
Voici le code
Sub MetLimage()
Set LeGraph = Worksheets("STAT").ChartObjects(1).Chart
NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
LeGraph.Export Filename:=NomImage, FilterName:="GIF"
UserForm2.Image1.Picture = LoadPicture(NomImage)
UserForm2.Show
End Sub
Pourriez vous m'aider à modifier ce code ?
Merci.
@+
Dernière édition: