Imprimir todos los gráficos incrustados mediante programación en una hoja de cálculo en Excel

En Microsoft Excel, puede crear una macro de Microsoft Visual Basic para Aplicaciones que imprima todos los gráficos incrustados en una hoja de cálculo de Excel. Cada gráfico se imprime en una página independiente.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía, ya sea expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Se considera que está familiarizado con el lenguaje de programación que se muestra y con las herramientas para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos adaptados a sus necesidades específicas. Para crear una macro de ejemplo que pueda imprimir todos los gráficos incrustados en una hoja de cálculo e imprimir cada gráfico en una página independiente, siga estos pasos:

1. Inicie Excel y, a continuación, abra el libro que contiene la hoja de cálculo con los gráficos incrustados.

2. Presione ALT+F11 para iniciar la Editor de Visual Basic.

3. En el menú Insertar, haga clic en Módulo.

4. En la hoja del módulo, escriba o pegue el código siguiente:

   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. En el menú Archivo, haga clic en Cerrar y volver a Microsoft Excel.

6. Seleccione la hoja de cálculo que contiene los gráficos incrustados.

7. En el menú Herramientas, seleccione Macroy, a continuación, haga clic en Macros.

8. En la lista Nombre de macro , haga clic en PrintEmbeddedChartsy, a continuación, haga clic en Ejecutar.