Hoe gegevens uit een grafiek of diagram in Excel extraheren?

Grafieken in Excel worden veel gebruikt om gegevens en trends effectiever te visualiseren. Er kunnen echter situaties zijn waarin u alleen een grafiek heeft zonder toegang tot de originele gegevens, zoals in het onderstaande voorbeeld wordt getoond. In dergelijke gevallen kan het extraheren van de gegevens uit de grafiek essentieel zijn. Deze handleiding biedt een stap-voor-stap uitleg over het ophalen van gegevens uit een grafiek of diagram in Excel met behulp van VBA-code.

Gegevens uit grafiek extraheren met VBA

  Gegevens uit grafiek extraheren met VBA

1. U moet een nieuw werkblad maken en dit hernoemen naar "ChartData". Zie screenshot:

2. Selecteer de grafiek waaruit u gegevens wilt extraheren. Druk tegelijkertijd op de toetsen "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.

3. Klik op "Invoegen" > "Module", en plak vervolgens de onderstaande VBA-code in het "Module"-venster.

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. Klik vervolgens op de knop "Uitvoeren" om de VBA-code uit te voeren. Zie screenshot:

U ziet dan dat de gegevens naar het werkblad "ChartData" zijn geëxtraheerd.

Tip:

1. U kunt de cellen indelen zoals u nodig hebt.

2. Standaard worden de gegevens van de geselecteerde grafiek geëxtraheerd vanaf de eerste cel van het werkblad ChartData.