bonjour j'aimerais ins=E9rer un graphique dans un userform=20
et qu'il s'actualise lorsque que l'on change les donn=E9es=20
ou alors la simple manipulation pour l'afficher dans=20
l'userform
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour L'astuce consiste à enregistrer le graphique présent sur une feuille en tant qu'image et d'utiliser ensuite cette image pour l'afficher dans un contrôle image d'un Userform. Par exemple : Sub MetLimage() 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) UserForm1.Show End Sub
Cordialement Pascal
"aurelien" a écrit dans le message de news:289201c47dec$e84bc490$ bonjour j'aimerais insérer un graphique dans un userform et qu'il s'actualise lorsque que l'on change les données ou alors la simple manipulation pour l'afficher dans l'userform
si quelqu'un peut m'aider ???
merci beaucoup par avance
Bonjour
L'astuce consiste à enregistrer le graphique présent sur une feuille en tant
qu'image et d'utiliser ensuite cette image pour l'afficher dans un contrôle
image d'un Userform.
Par exemple :
Sub MetLimage()
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)
UserForm1.Show
End Sub
Cordialement
Pascal
"aurelien" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:289201c47dec$e84bc490$a401280a@phx.gbl...
bonjour j'aimerais insérer un graphique dans un userform
et qu'il s'actualise lorsque que l'on change les données
ou alors la simple manipulation pour l'afficher dans
l'userform
Bonjour L'astuce consiste à enregistrer le graphique présent sur une feuille en tant qu'image et d'utiliser ensuite cette image pour l'afficher dans un contrôle image d'un Userform. Par exemple : Sub MetLimage() 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) UserForm1.Show End Sub
Cordialement Pascal
"aurelien" a écrit dans le message de news:289201c47dec$e84bc490$ bonjour j'aimerais insérer un graphique dans un userform et qu'il s'actualise lorsque que l'on change les données ou alors la simple manipulation pour l'afficher dans l'userform
