Imprimer un graph par une macro

[man_coef]

Bonjour!

Je souhaite à partir d'un bouton imprimer un grapghique contenu sur la feuille. J'ai donc écrit une macro, mais je n'ai jamais réussi à faire ce que je voulais.

Code :

1
2
3
4
 
ActiveSheet.ChartObjects("Graphique 5").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True

Est-ce que quelqu'un sait comment faire????

Si je fais ca, cela ne m'imprime pas le graph mais la page entière.

Merci;

[Gerard6969]

humm sinon si tu veux juste imprimer ton graph, tu peux peut être le copier sur une feuille blanche, et ensuite imprimer cette feuille et tu aura bien que ton graphique

[Gerard6969]

Sinon je viens de regarder un peu et tu peux faire comme ca :

Ps: faut que tu l'adapte a ton cas !

Code :

1
2
3
 
Set CurrentChart = Sheets("GRAPH").ChartObjects(1).Chart
CurrentChart.PrintPreview

La fonction PrintPreview que tu peux remplacer par un PrintOut