Insertion graphique dans userform

[Sebou]

Bonjour,

Je souhaite intégrer un graphique dans un userform..(j'ai trouvé plusieurs fois le mm code sur les forums mais je n'ai pa réussi à l'adapter)
voici le code que je trouve :

Set LeGraph = Chart(1).ChartObjects(1).Chart
NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
LeGraph.Export Filename:=NomImage, FilterName:="GIF"
UserForm1.Image1.Picture = LoadPicture(NomImage)
UserForm1.Show

il faut dimensionner LeGraph et NomImage (Chart et String ? ), et il y a un pb avec le ChartObjects.

Voici toutes les informations nécessaires :
- le userform s'appelle UserForm3
- la case image du userform dans laquelle charger le graph, Image10
- le graphique se situe sur la feuille "Graph1"

Pourriez-vous m'aider s'il vous plait ?

Merci

 

[Pierrot93]

Re : Insertion graphique dans userform

Bonjour,

regarde peut être également dans le WIKI, les pages de MichelXLD, notamment les articles dédiés aux "chartspaces". Tu y trouveras également des procédures pour intégrer des images dans un userform...

https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/

bonne journée
@+

 

[13GIBE59]

Re : Insertion graphique dans userform

Bonjour Sebou, Pierrot

Dans mon livre de comptes, j'ai utilisé ce code, dans le Private Sub UserForm_Initialize(), qui marche très bien :

Set CurrentChart = Sheets("Comptes").ChartObjects(1).Chart
    Fname = ThisWorkbook.Path & "\Graphique.gif"
    CurrentChart.export Filename:=Fname, FilterName:="GIF"
    Image1.Picture = LoadPicture(Fname)

A adapter.
Bon courage !