Image d'un graphique dans UserForm

[exene]

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

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.

@+

 

[Misange]

Re : Image d'un graphique dans UserForm

Bonjour pascal

Je viens de retester, ceci fonctionne :
http://www.excelabo.net/excel/export_perso

Sub ExportGraphActif()
 'exporte un graph sous format gif dans le dossier du classeur en cours
 Dim Chemin As String
 Dim Graph As String
 Graph = InputBox("Entrez le nom d'exportation du graphique, sans extension")
 Chemin = ActiveChart.Parent.Parent.Parent.Path
 ActiveChart.Export Chemin & "/" & Graph & ".gif", "GIF"
 End Sub

 

[exene]

Re : Image d'un graphique dans UserForm

Bonsoir Misange, le forum,

Tout d'abord, merci, votre site m'apporte beaucoup.

Concernant votre code, l'export se fait facilement. Cependant, ce que j'aimais dans le code cité ci-dessus était la mise à jour automatique du graphique dans l'UserForm (le graphique est dans la même feuille qu'un TCD). Lorsque je lance le déboguage, c'est cette ligne qui est surlignée.

UserForm2.Image1.Picture = LoadPicture(NomImage)

Au survol, j'ai ce message : variable non définie. mais peut être cela vient il des instructions FileName et FilterName.

@+

 

[Misange]

Re : Image d'un graphique dans UserForm

Re bonjour

essaye ce code de laurent Longre

Const Fichier = "C:\TempGraphique.gif"  
Sheets("Feuil1").ChartObjects(1).Chart.Export Fichier, "GIF"  
Me.Image1.Picture = LoadPicture("C:\TempGraphique.gif")

 

[Hulk]

Re : Image d'un graphique dans UserForm

Salut à tous,

Peut-être déclarer ta variable NomImage en string et t'assurer que l'image est bien dans le ThisWorkbook.Path et qu'elle se nomme bien temp.gif.

 

[exene]

Re : Image d'un graphique dans UserForm

Bonjour Misange, Hulk, le forum,

Je teste vos propositions dès que possible.

Merci.

 

[exene]

Re : Image d'un graphique dans UserForm

Bonjour à vous tous,

J'ai eu un peu de temps pour travailler sur le fichier et d'étudier les conseils et proposition. Hulk doit avoir raison, j'ai bien un fichier temp mais celui.ci est vide (0 octet). Je n'ai pas réussi à utiliser le code de Laurent Longre. Par contre j'ai trouvé quelque chose d'étonnant, j'ai ouvert le fichier et par inadvertance cliquer sur enregistrer (sans quitter bien sûr) et là quand j'affiche l'UserForm l'image du graphique apparait .

Je ne comprends pas pourquoi ?

@+

 

[fredvolle]

Re : Image d'un graphique dans UserForm

Bonjour

Je voudrais savoir si tu avais trouvé une solution à ton problème : j'ai exactement le même cas. Mon fichier marche sur excel 2007, mais plante quand je l'envoie à une collègue sur excel 2010.

As tu trouvé une solution, ou un bout de code à me conseiller ?

Cdt

 

[camarchepas]

Re : Image d'un graphique dans UserForm

Bonjour Fred ,

Réouvrir un post de plus d'un an , ne résoudra pas grand chose ,
l'on attends toujours en double file , nous du coup .
Un peu de politesse que diable, reprends ton premier file et aide nous à chercher .

 

[fredvolle]

Re : Image d'un graphique dans UserForm

Ah désolé, je ne savais pas qu'on pouvait pour ça, j'ai vu le même problème que moi... Je suis nouveau ici, encore désolé !!
Je retourne sur l'autre discussion