Impression zone graphique

[Anita]

Bonjour à toutes et tous,

J'ai sur une feuille positionné un graphique et créer un bouton ( par Outils contrôle) pour n'imprimer que ce seul graphique. Je lui ai affecté comme macro les lignes suivantes :

Private Sub CommandButton1_Click()
ActiveSheet.ChartObjects('Graphique 4').Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub


Malheureusement quand je clique sur ce bouton, c'est la page qui s'imprime et non le graphique seul.
Je suis incapable de corriger seule mon erreur!! :huh:

Merci d'avance pour votre aide et bonne journée....

 

[2passage]

Bonjour,

As tu essayé :
ActiveChart.PrintOut ...

au lieu de
ActiveWindow.SelectedSheets.PrintOut ?

A+

 

[Anita]

merci......ça marche comme je veux.
Bonne journée.