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
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
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
Bonsoir.
Essaie :
ActiveChart.PrintOut
Cordialement.
Daniel
"Joël André" <joel.andre7@wanadoo.fr> a écrit dans le message de news:
OBdU8M5iIHA.5504@TK2MSFTNGP05.phx.gbl...
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
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
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
Merci Daniel, c'est tout à fait ce qui convient.
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OrOtm65iIHA.5504@TK2MSFTNGP05.phx.gbl...
Bonsoir.
Essaie :
ActiveChart.PrintOut
Cordialement.
Daniel
"Joël André" <joel.andre7@wanadoo.fr> a écrit dans le message de news:
OBdU8M5iIHA.5504@TK2MSFTNGP05.phx.gbl...
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
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