Graphique dans userform

[Luc]

Bonjour à tous

J'aimerais placer dans un userform un graphique camenbert interactif. J'ai cherché dans les barres d'outils en vain.
Si quelqu'un à une ou des suggestions, j'en serais ravi.

Un grand merci.
Luc

 

[david45]

salut

voici un fichier avec les codes qui devrons repondre a ta question

a+

david

 

[david45]

oups !

je n'ai pas reussi a envoyer le fichier

tu met ton graph dans la feuille 1

et tu mais une image dans ton userform

et dans ton userform tu met le code suivant

Private Sub UserForm_Initialize()

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

End Sub
a +

 

[MichelXld]

bonjour Luc , bonjur David

ci joint un autre exemple qui utilise un ChartSpace dans l'UserForm


bonne journée
MichelXld [file name=chartSpace_Camembert.zip size=11907]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/chartSpace_Camembert.zip[/file]

 

[Luc]

Bonjour David et Michel
J'ai essayé les 2 solutions.
Avec la solution de David, ça n'a pas marché, j'ai un message comme qu'il ne trouve pas la routine 'LoadPicture' ??

Avec la solution de Michel, j'ai réussi avec bien du mal à la mettre en pratique après avoir rajouté la référence 'Microsoft Office Web Compoments 9.0'. Et je ne suis que partiellement satisfait, car je ne parvient pas à afficher mon camenbert en 3D malgré avoir changé le Cht.Type = xl3DPieExploded

Ceci dit, je suis déjà très content avec cette solution.
Déjà un grand merci à vous
Luc