Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Imprimer un graphique

Imprimer un graphique

2 réponses
Avatar
Joël André
Bonsoir à tous,

Soit un graphique dont le nom est en cellule A3.
Pour l'imprimer, un bouton lance la macro ci-dessous.
Systématiquement, c'est la page sur laquelle est le graphique et le
graphique qui s'impriment.
Je ne voudrais que le graphique à l'impression.

Quelle erreur ais-je commise?
Merci pour vos conseils.

Private Sub Imprime_Click()
ActiveSheet.Unprotect
NomDuGraphique = Sheets("Expression Graphique").Range("A3")
ActiveSheet.ChartObjects(NomDuGraphique).Activate
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
With ActiveChart.PageSetup
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.ChartSize = xlFullPage
.Orientation = xlLandscape
End With
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,
Collate:=True
'Sheets("Expression Graphique").Range("A1").Select
ActiveSheet.Protect
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Daniel.C
Bonsoir.
Essaie :
ActiveChart.PrintOut
Cordialement.
Daniel
"Joël André" a écrit dans le message de news:

Bonsoir à tous,

Soit un graphique dont le nom est en cellule A3.
Pour l'imprimer, un bouton lance la macro ci-dessous.
Systématiquement, c'est la page sur laquelle est le graphique et le
graphique qui s'impriment.
Je ne voudrais que le graphique à l'impression.

Quelle erreur ais-je commise?
Merci pour vos conseils.

Private Sub Imprime_Click()
ActiveSheet.Unprotect
NomDuGraphique = Sheets("Expression Graphique").Range("A3")
ActiveSheet.ChartObjects(NomDuGraphique).Activate
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
With ActiveChart.PageSetup
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.ChartSize = xlFullPage
.Orientation = xlLandscape
End With
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,
Collate:=True
'Sheets("Expression Graphique").Range("A1").Select
ActiveSheet.Protect
End Sub



Avatar
Joël André
Merci Daniel, c'est tout à fait ce qui convient.

"Daniel.C" a écrit dans le message de news:

Bonsoir.
Essaie :
ActiveChart.PrintOut
Cordialement.
Daniel
"Joël André" a écrit dans le message de news:

Bonsoir à tous,

Soit un graphique dont le nom est en cellule A3.
Pour l'imprimer, un bouton lance la macro ci-dessous.
Systématiquement, c'est la page sur laquelle est le graphique et le
graphique qui s'impriment.
Je ne voudrais que le graphique à l'impression.

Quelle erreur ais-je commise?
Merci pour vos conseils.

Private Sub Imprime_Click()
ActiveSheet.Unprotect
NomDuGraphique = Sheets("Expression Graphique").Range("A3")
ActiveSheet.ChartObjects(NomDuGraphique).Activate
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
With ActiveChart.PageSetup
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.ChartSize = xlFullPage
.Orientation = xlLandscape
End With
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,
Collate:=True
'Sheets("Expression Graphique").Range("A1").Select
ActiveSheet.Protect
End Sub