XL 2019 VBA - Impression pdf graphiques du Workbook

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
706
Réponses
7
Affichages
2 K
Réponses
35
Affichages
7 K
Retour