Stampare tutti i grafici incorporati a livello di codice in un foglio di lavoro in Excel

In Microsoft Excel è possibile creare una macro di Microsoft Visual Basic, Applications Edition che stampa tutti i grafici incorporati in un foglio di lavoro di Excel. Ogni grafico viene stampato in una pagina separata.

Ulteriori informazioni

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli esperti Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare routine, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare routine atte a soddisfare specifiche esigenze. Per creare una macro di esempio in grado di stampare tutti i grafici incorporati in un foglio di lavoro e stampare ogni grafico in una pagina separata, seguire questa procedura:

1. Avviare Excel e quindi aprire la cartella di lavoro contenente il foglio di lavoro con i grafici incorporati.

2. Premere ALT+F11 per avviare la Editor di Visual Basic.

3. Nel menu Inserisci, fare clic su Modulo.

4. Nel foglio del modulo digitare o incollare il codice seguente:

   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. Scegliere Chiudi dal menu File e tornare a Microsoft Excel.

6. Selezionare il foglio di lavoro che contiene i grafici incorporati.

7. Scegliere Macro dal menu Strumenti, quindi fare clic su Macro.

8. Nell'elenco Nome macro fare clic su PrintEmbeddedCharts e quindi su Esegui.