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 graphique

Imprimer graphique

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

Office 2000pro et XP pro, tout à jour .

Dans une macro VBA qui fonctionne très bien, j'ai sorti la partie
correspondant à l'impression du graphique pour en faire une macro à part
entière.
Cette nouvelle macro, ci dessous, ne fonctionne pas correctement en ce sens
ou c'est toute la feuille sur laquelle se trouve le graphique qui est
imprimée alors qu'il ne faut que le graphique pleine page. Avant le
découpage, l'impression fonctionnait très bien.
J'ai simplement rajouté le test d'entrée et la première ligne pour récupérer
le nom du graphique.

Où me suis-je planté?

Merci beaucoup.
Joël

Sub ImprimeGraphique ()

'Variables en Private



If Range("A1") = "" Then

NomDuGraphique = MsgBox("Graphique absent", vbYes, "GRAPHIQUE")



Else

If NomDuGraphique = "" Then NomDuGraphique = "" & Range("A1") &
""



ActiveSheet.Unprotect

ActiveSheet.ChartObjects(NomDuGraphique).Activate



ActiveChart.ChartArea.Select



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)

.FooterMargin = Application.InchesToPoints(0)

.ChartSize = xlFullPage

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape



End With



ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ActiveWindow.Visible = False

Windows("EtudeStatistiques.xls").Activate



End If



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
isabelle
bonjour Joel,

'ajoute cette ligne:
ActiveSheet.ChartObjects(NomDuGraphique).Activate
'juste avant celle ci:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True

isabelle

Bonsoir,

Office 2000pro et XP pro, tout à jour .

Dans une macro VBA qui fonctionne très bien, j'ai sorti la partie
correspondant à l'impression du graphique pour en faire une macro à part
entière.
Cette nouvelle macro, ci dessous, ne fonctionne pas correctement en ce sens
ou c'est toute la feuille sur laquelle se trouve le graphique qui est
imprimée alors qu'il ne faut que le graphique pleine page. Avant le
découpage, l'impression fonctionnait très bien.
J'ai simplement rajouté le test d'entrée et la première ligne pour récupérer
le nom du graphique.

Où me suis-je planté?

Merci beaucoup.
Joël

Sub ImprimeGraphique ()

'Variables en Private



If Range("A1") = "" Then

NomDuGraphique = MsgBox("Graphique absent", vbYes, "GRAPHIQUE")



Else

If NomDuGraphique = "" Then NomDuGraphique = "" & Range("A1") &
""



ActiveSheet.Unprotect

ActiveSheet.ChartObjects(NomDuGraphique).Activate



ActiveChart.ChartArea.Select



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)

.FooterMargin = Application.InchesToPoints(0)

.ChartSize = xlFullPage

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape



End With



ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ActiveWindow.Visible = False

Windows("EtudeStatistiques.xls").Activate



End If



End Sub







Avatar
Joël André
Tout fonctionne.
Merci Isabelle.

"isabelle" a écrit dans le message de news:

bonjour Joel,

'ajoute cette ligne:
ActiveSheet.ChartObjects(NomDuGraphique).Activate
'juste avant celle ci:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True,
Collate:=True

isabelle

Bonsoir,

Office 2000pro et XP pro, tout à jour .

Dans une macro VBA qui fonctionne très bien, j'ai sorti la partie
correspondant à l'impression du graphique pour en faire une macro à part
entière.
Cette nouvelle macro, ci dessous, ne fonctionne pas correctement en ce
sens ou c'est toute la feuille sur laquelle se trouve le graphique qui
est imprimée alors qu'il ne faut que le graphique pleine page. Avant le
découpage, l'impression fonctionnait très bien.
J'ai simplement rajouté le test d'entrée et la première ligne pour
récupérer le nom du graphique.

Où me suis-je planté?

Merci beaucoup.
Joël

Sub ImprimeGraphique ()

'Variables en Private



If Range("A1") = "" Then

NomDuGraphique = MsgBox("Graphique absent", vbYes, "GRAPHIQUE")



Else

If NomDuGraphique = "" Then NomDuGraphique = "" & Range("A1")
& ""



ActiveSheet.Unprotect

ActiveSheet.ChartObjects(NomDuGraphique).Activate



ActiveChart.ChartArea.Select



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)

.FooterMargin = Application.InchesToPoints(0)

.ChartSize = xlFullPage

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape



End With



ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ActiveWindow.Visible = False

Windows("EtudeStatistiques.xls").Activate



End If



End Sub