Como extrair dados de um gráfico ou diagrama no Excel?

Os gráficos no Excel são amplamente utilizados para visualizar dados e tendências de forma mais eficaz. No entanto, pode haver situações em que você tenha apenas um gráfico sem acesso aos seus dados originais, como mostrado no exemplo abaixo. Nesses casos, extrair os dados do gráfico pode ser essencial. Este tutorial fornece um guia passo a passo para recuperar dados de um gráfico ou diagrama no Excel usando código VBA.

Extrair dados do gráfico com VBA

  Extrair dados do gráfico com VBA

1. Você precisa criar uma nova planilha e renomeá-la como "ChartData". Veja a captura de tela:

2. Selecione o gráfico do qual deseja extrair os dados. Pressione as teclas "Alt" + "F11" simultaneamente para abrir a janela "Microsoft Visual Basic for Applications".

3. Clique em "Inserir" > "Módulo", depois cole o código VBA abaixo na janela "Módulo".

Sub GetChartValues()
    'Updateby20220510
    Dim xNum As Integer
    Dim xSeries As Object
    On Error Resume Next
    xCount = 2
    xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
    Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
    With Application.Worksheets("ChartData")
        .Range(.Cells(2, 1), _
        .Cells(xNum + 1, 1)) = _
        Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
    End With
    For Each xSeries In Application.ActiveChart.SeriesCollection
        Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
        With Application.Worksheets("ChartData")
            .Range(.Cells(2, xCount), _
            .Cells(xNum + 1, xCount)) = _
            Application.WorksheetFunction.Transpose(xSeries.Values)
        End With
        xCount = xCount + 1
    Next
End Sub

4. Em seguida, clique no botão "Executar" para rodar o VBA. Veja a captura de tela:

Você poderá ver os dados extraídos na planilha "ChartData".

Dica:

1. Você pode formatar as células conforme necessário.

2. Por padrão, os dados do gráfico selecionado são extraídos a partir da primeira célula da planilha ChartData.