XL 2019 VBA - Impression pdf graphiques du Workbook

[james7734]

Bonjour!
Je possède un fichier avec plusieurs onglets et qui, dans chacun des onglets, a des graphiques. J'essaie d'imprimer en un seul fichier .pdf tous les graphs du classeur. Aujourd'hui, j'utlise ce code mais qui imprime chacun des graph séparément. Est-il possible d'ajuster ce code pour pouvoir faire qu'une seule impression pdf de plusieurs pages (avec tous les différents graphs à la suite)?

Merci!

Sub PrintEmbeddedCharts()

    Application.ScreenUpdating = False
    
    Dim sht As Object
    Dim cht As ChartObject
    
    For Each sht In ActiveWorkbook.Sheets
        For Each cht In sht.ChartObjects
            cht.Activate
            ActiveChart.ChartArea.Select
            ActiveWindow.SelectedSheets.PrintOut
        Next
    Next
End Sub

 

[kiki29]

Salut, mieux vaut tard que jamais ... s'il s'agit de Charts.

 

[kiki29]

Re, s'il s'agit de Graphes
Pour éviter un chevauchement des Graphes, je n'ai trouvé que la sauvegarde unitaire des Graphes en PDF puis la fusion de ces PDFs ( via PDFCreator 1.7.3 )