XL 2019 VBA - Impression pdf graphiques du Workbook

james7734

XLDnaute Junior
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!


VB:
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

XLDnaute Barbatruc
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 )
 

Pièces jointes

  • Graphs.png
    Graphs.png
    131.3 KB · Affichages: 14
  • XLD.zip
    904.9 KB · Affichages: 5

Discussions similaires