Discussion :

[SpaceFrog]

Ben y'avait longtemps !! salut la foule


bon voilà ce qui m'amène ..
j'ai plusieurs feuilles avec des données et je souhaite en retirer un graph sur le clikc d'un bouton sur une feuille ...
jusque là pas trop de souci ...
là ou ça coince s'est que je voudrasi coller le graph dans un userform mais je ne sais pas premièrement dasn que controle le coller et ensuite comment en récupérer l'image pour le coller dans le userform ...

merci de vos idées ...

[ouskel'n'or]

Hello, y'avait longtemps...
Je crains que tu ne sois contraint de passer par un fichier image que tu placeras dans une image placée dans l'userform
Voisi une adresse : http://www.developpez.net/forums/sho...142#post559142

J'ai fait ça mais je n'arrive pas à retrouver où
Pour le principe
- copier le graph (tu as la syntaxe à cet url)
- enregistrer la copie en tant qu'image (.bmp)
- insèrer l'image dans une image placée dans l'userform
- détruire le bmp

Je continue mes recherches

[SpaceFrog]

pourtant l'activechart possède bien une propriété copypicture ??? avec un format bmp ...

[ouskel'n'or]

Oui mais qui sert à copier le graph dans une autre feuille. Je ne sais pas si elle permet d'enregistrer ça directement dans un userform mais mon expérience se limite à VB97

[zazaraignée]

Salut la sautillante grenouille extraterrestre

En effet, y'avait longtemps!

D'une bestiole à une autre, personnellement, j'opterais pour l'ajout d'un contrôle Graph sur le UserForm et j'y mettrait mes données en source et tout l'intouin. Comme ça, si les données changent, le Graphe aussi.

[ouskel'n'or]

Bon, tout ce que j'ai est effectivement pour coller dans une feuille de calcul non dans un userform. Je ne peux pas t'aider plus.
Par contre, pour vider le presse-papier "j'ai vu passer" le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard

Il faut au préalable déclarer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long

... que mon intervention ne soit pas totalement inutile.

Je te laisse avec qui a déjà réalisé des collage dans un userform (!?!)

Bonne chance

Edit
La solution de zaza me paraît aussi la plus orthodoxe...

[SilkyRoad]

bonsoir

il existe plusieurs possibilités pour afficher un graphique dans un Userform


1. Exporter le graphique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Feuil1.ChartObjects(1).Chart.Export _
Filename:="C:\nomGraphe.gif", filtername:="GIF"

ensuite pour l'afficher dans un objet Image , placé dans l'UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Image1.Picture = LoadPicture("C:\nomGraphe.gif")

2. Utiliser la methode PastePicture de Stephen Bullen :
http://www.bmsltd.ie/Excel/SBXLPage.asp



3. Utiliser un objet ChartSpace :
http://www.developpez.net/forums/sho...=chDataLiteral



bonne soiree
michel