Macro para extrair dados de um gráfico no Excel

Traduções deste artigo Traduções deste artigo
ID do artigo: 300643 - Exibir os produtos aos quais esse artigo se aplica.
Para uma versão deste artigo do Microsoft Excel 2000, consulte 213814.
Para uma versão anterior deste artigo e do Microsoft Excel 98, consulte 137016.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

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.

Mais Informações

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.

Propriedades

ID do artigo: 300643 - Última revisão: quarta-feira, 31 de janeiro de 2007 - Revisão: 4.1
A informação contida neste artigo aplica-se a:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
Palavras-chave: 
kbmt kbdtacode kbhowto kbprogramming KB300643 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 300643

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com