Hoe extraheert u gegevens uit een grafiek of diagram in Excel?
Grafieken in Excel worden veel gebruikt om gegevens en trends effectiever te visualiseren. Er kunnen echter situaties zijn waarin u alleen een grafiek hebt zonder toegang tot de oorspronkelijke gegevens, zoals in het onderstaande voorbeeld. In dergelijke gevallen kan het extraheren van de gegevens uit de grafiek essentieel zijn. Deze handleiding biedt een stapsgewijze instructie om gegevens uit een grafiek of diagram in Excel op te halen met VBA-code.
Gegevens uit grafiek extraheren met VBA
1. Maak een nieuw werkblad aan en hernoem het naar 'ChartData'. Zie de schermafbeelding:
2. Selecteer de grafiek waaruit u gegevens wilt extraheren en druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op 'Invoegen' > 'Module' en plak 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 te starten. Zie de schermafbeelding:
U ziet de gegevens dan geëxtraheerd in het werkblad 'ChartData'.
Tip:
1. U kunt de cellen geheel naar uw wens opmaken.
2. Standaard worden de gegevens van de geselecteerde grafiek geëxtraheerd vanaf de eerste cel van het werkblad ChartData.
Tip: Als u regelmatig werkt met complexe grafieken in Excel, kan het telkens opnieuw maken ervan behoorlijk tijdrovend zijn. Met de ‘Automatische tekst’-tool van Kutools voor Excel stroomlijnt u dit proces: maak uw grafieken één keer aan, voeg ze toe aan het Automatische tekst-venster en hergebruik ze waar en wanneer u wilt — u hoeft alleen nog de verwijzingen aan te passen aan uw specifieke behoeften.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen |
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins