Macro para extrair dados de um gráfico no Excel

No Microsoft Excel, você pode recuperar dados de um gráfico, mesmo quando os dados estão em uma planilha externa ou pasta de trabalho. Isso é útil em situações onde o gráfico foi criado a partir de, ou vinculado a, outro arquivo que não está disponível ou foi danificado de alguma forma. Quando os dados de origem a um gráfico serão perdidos, os dados ainda podem ser recuperados do gráfico, usando uma Microsoft Visual Basic para aplicativos macro.

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.

A macro de exemplo a seguir coloca dados de origem do gráfico em uma planilha chamada "ChartData" na pasta de trabalho ativa, início na primeira linha e primeira coluna.

1. Insira o código de macro a seguir em uma folha de módulo:

   Sub GetChartValues()
      Dim NumberOfRows As Integer
      Dim X As Object
      Counter = 2
   
      ' Calculate the number of rows of data.
      NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
   
      Worksheets("ChartData").Cells(1, 1) = "X Values"
   
      ' Write x-axis values to worksheet.
      With Worksheets("ChartData")
         .Range(.Cells(2, 1), _
         .Cells(NumberOfRows + 1, 1)) = _
         Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
      End With
   
      ' Loop through all series in the chart and write their values to
      ' the worksheet.
      For Each X In ActiveChart.SeriesCollection
         Worksheets("ChartData").Cells(1, Counter) = X.Name
   
         With Worksheets("ChartData")
            .Range(.Cells(2, Counter), _
            .Cells(NumberOfRows + 1, Counter)) = _
            Application.Transpose(X.Values)
         End With
   
         Counter = Counter + 1
      Next
   
   End Sub
   					

2. Inserir uma nova planilha em sua pasta de trabalho e renomeie-a "ChartData" (sem as aspas).
3. Selecione o gráfico do qual você deseja extrair os valores de dados subjacente.
   
   Observação : O gráfico ou pode ser incorporado em uma planilha ou em uma folha de gráfico separada.
4. Execute a macro GetChartValues .
   
   Os dados do gráfico são colocados na planilha "ChartData".

Etapas para vincular o gráfico para dados recuperados

Para que o gráfico ser interativo com os dados recuperados, você precisa vincular o gráfico à folha de dados de novo em vez de manter os links para a pasta de trabalho ausente ou danificado.

1. Selecione o gráfico e clique em uma série para localizar o nome de folha aos quais o gráfico está vinculado na pasta de trabalho danificada ou falta. O nome de planilha aparece na fórmula seqüência na barra de fórmulas.
   
   Observação : O nome de planilha pode seguir o nome da pasta de trabalho, que está entre colchetes, como "[Pasta1]," e preceder o ponto de exclamação "!" (ou apóstrofe e ponto de exclamação "'!") que indica o início de uma referência de célula. O nome da planilha inclui apenas os caracteres entre o símbolo do colchete de fechamento "]" e o ponto de exclamação (ou apóstrofe e ponto de exclamação). Deixe sem qualquer apóstrofo se ela é imediatamente antes do ponto de exclamação, porque um apóstrofo não pode ser o último caractere em um nome de planilha.
2. Clique duas vezes na guia da nova planilha chamada ChartData .
3. Digite o nome original da planilha da etapa 1 sobre a "ChartData" realçada e pressione ENTER. Esse nome deve ser o mesmo que o nome da planilha da pasta de trabalho danificado ou faltando.
4. Se você não salvou esse arquivo com a folha de gráfico e dados, salve o arquivo.
5. No Excel 2003 ou Excel 2002, clique em vínculos no menu Editar e, em seguida, clique em Alterar origem .
   
   No Excel 2007, clique na guia dados , clique em Editar vínculos no grupo Connenctions e, em seguida, clique em Alterar origem .
6. Na caixa Arquivo de origem , selecione o link para alterar e, em seguida, clique em Alterar origem .
7. Na caixa de diálogo Alterar vínculos , selecione o novo arquivo com os dados recuperados e o gráfico e, em seguida, clique em OK .
8. Se você receber a seguinte mensagem de erro
   A fórmula contém uma referência externa inválida para uma planilha.
   é provável que o nome da planilha que você digitou na etapa 3 não é o mesmo que o original. Volte para a etapa 1.
9. A caixa de Arquivo de origem agora pode estar em branco. Isso indica que todos os links apontam para o arquivo ativo em vez do arquivo faltando ou danificado. Clique em Fechar .

O gráfico agora faz referência e interage com os dados recuperados na planilha renomeada na pasta de trabalho ativa.