Ler em inglês

Compartilhar via

Imprimir todos os gráficos inseridos programaticamente em uma planilha no Excel

  • Artigo
  • Aplica-se a:
    Excel 2007, Excel 2003, Excel 2002, Excel 2000

No Microsoft Excel, você pode criar uma macro do Microsoft Visual Basic for Applications que imprime todos os gráficos inseridos em uma planilha do Excel. Cada gráfico é impresso em uma página separada.

Mais informações

A Microsoft oferece exemplos de programação somente para ilustração, sem garantias expressas ou implícitas. Isso inclui, mas não está limitado a, as garantias implícitas de qualidade comercial ou conformidade para uma determinada finalidade. Este artigo supõe que você conhece a linguagem de programação que está sendo demonstrada e as ferramentas usadas nos processos de criação e depuração. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas. Para criar uma macro de exemplo que possa imprimir todos os gráficos inseridos em uma planilha e imprimir cada gráfico em uma página separada, siga estas etapas:

  1. Inicie o Excel e abra a pasta de trabalho que contém a planilha com os gráficos inseridos.

  2. Pressione ALT+F11 para iniciar o Visual Basic Editor.

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

  4. Na folha de módulos, digite ou cole o seguinte código:

    VB 
    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 Arquivo, clique em Fechar e Retornar ao Microsoft Excel.

  6. Selecione a planilha que contém os gráficos inseridos.

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

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