Imprimer tous les graphiques incorporés par programmation dans une feuille de calcul dans Excel

Dans Microsoft Excel, vous pouvez créer une macro Microsoft Visual Basic pour Applications qui imprime tous les graphiques incorporés dans une feuille de calcul Excel. Chaque graphique est imprimé sur une page distincte.

Informations supplémentaires

Microsoft fournit des exemples de programmation à titre d’illustration uniquement, sans garantie expresse ou implicite. Cela inclut, sans y être limité, les garanties implicites de commercialisation et d’adaptation à un but en particulier. Cet article considère que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d’une procédure particulière, mais ils ne peuvent pas modifier les exemples en vue de vous fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques. Pour créer un exemple de macro qui peut imprimer tous les graphiques incorporés dans une feuille de calcul et imprimer chaque graphique sur une page distincte, procédez comme suit :

1. Démarrez Excel, puis ouvrez le classeur contenant la feuille de calcul avec les graphiques incorporés.

2. Appuyez sur Alt+F11 pour démarrer l’Rédacteur Visual Basic.

3. Dans le menu Insertion, cliquez sur Module.

4. Dans la feuille du module, tapez ou collez le code suivant :

   Sub PrintEmbeddedCharts()
        Dim ChartList As Integer
        Dim X As Integer
        ' Variable chartlist stores a count of all embedded charts.
        ChartList = ActiveSheet.ChartObjects.Count
        ' Increments the counter variable 'X' in a loop.
        For X = 1 To ChartList
            ' Selects the chart object.
            ActiveSheet.ChartObjects(X).Select
            ' Makes chart active.
            ActiveSheet.ChartObjects(X).Activate
            ' Prints one copy of active chart.
            ActiveChart.PrintOut Copies:=1
        Next
   End Sub
   

5. Dans le menu Fichier, cliquez sur Fermer et Revenir à Microsoft Excel.

6. Sélectionnez la feuille de calcul qui contient les graphiques incorporés.

7. dans le menu Outils, pointez sur Macro, puis cliquez sur Macros.

8. Dans la liste Nom de la macro , cliquez sur PrintEmbeddedCharts, puis sur Exécuter.