Imprimir todos os gráficos incorporados programaticamente numa folha de cálculo no Excel

No Microsoft Excel, pode criar uma macro do Microsoft Visual Basic for Applications que imprime todos os gráficos incorporados numa folha de cálculo do Excel. Cada gráfico é impresso numa página separada.

Mais informações

A Microsoft fornece exemplos de programação apenas a título informativo, sem qualquer garantia expressa ou implícita, incluindo, sem limitações, as garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que o utilizador está familiarizado com a linguagem de programação demonstrada e as ferramentas utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às suas necessidades específicas. Para criar uma macro de exemplo que possa imprimir todos os gráficos incorporados numa folha de cálculo e imprimir cada gráfico numa página separada, siga estes passos:

1. Inicie o Excel e, em seguida, abra o livro que contém a folha de cálculo com os gráficos incorporados.

2. Prima Alt+F11 para iniciar o visual basic Revisor.

3. No menu Inserir, clique em Módulo.

4. Na folha do módulo, escreva ou cole o seguinte código:

   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. No menu Ficheiro, clique em Fechar e Regressar ao Microsoft Excel.

6. Selecione a folha de cálculo que contém os gráficos incorporados.

7. no menu Ferramentas, aponte para Macro e, em seguida, clique em Macros.

8. Na lista Nome da macro , clique em PrintEmbeddedCharts e, em seguida, clique em Executar.