Alle ingesloten grafieken programmatisch afdrukken op een werkblad in Excel

In Microsoft Excel kunt u een Microsoft Visual Basic for Applications-macro maken waarmee alle ingesloten grafieken in een Excel-werkblad worden afgedrukt. Elke grafiek wordt op een afzonderlijke pagina afgedrukt.

Meer informatie

Microsoft verstrekt programmeervoorbeelden alleen ter illustratie, zonder expliciete of impliciete garantie. daaronder mede begrepen, maar niet beperkt tot impliciete garanties met betrekking tot de verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal VBScript, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. U kunt desgewenst contact opnemen met Microsoft Product Support Services voor uitleg over de functie van een bepaalde procedure. Microsoft Product Support Services is echter niet bereid de voorbeelden aan te passen om extra functies toe te voegen of om procedures te maken die aan uw specifieke eisen voldoen. Voer de volgende stappen uit om een voorbeeldmacro te maken waarmee alle ingesloten grafieken in een werkblad kunnen worden afgedrukt en elke grafiek naar een afzonderlijke pagina kan worden afgedrukt:

1. Start Excel en open de werkmap met het werkblad met de ingesloten grafieken.

2. Druk op Alt+F11 om de Visual Basic-Editor te starten.

3. Klik op Module in het menu Invoegen.

4. Typ of plak de volgende code in het moduleblad:

   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. Klik in het menu Bestand op Sluiten en terugkeren naar Microsoft Excel.

6. Selecteer het werkblad met de ingesloten grafieken.

7. wijs in het menu Extra de optie Macro aan en klik vervolgens op Macro's.

8. Klik in de lijst Macronaam op PrintEmbeddedCharts en klik vervolgens op Uitvoeren.