Hoe verwijdert u grafiekkoppelingen naar brongegevens in Excel?

Deze methode introduceert een VBA-code waarmee u in één keer alle koppelingen tussen grafieken en hun brongegevens in een Excel-werkblad kunt verwijderen. Volg hiervoor de onderstaande stappen:

1. Activeer het werkblad waarvan u alle grafiekkoppelingen wilt verwijderen en druk tegelijkertijd op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op 'Invoegen' > 'Module' en plak de VBA-code in het nieuwe modulevenster.

VBA: Alle grafiekkoppelingen in een werkblad verwijderen

Sub BreakChartLinks()
Dim I As Long
Dim xChartCount As Long
Dim xLinkArr As Variant
Dim xSerColl As Variant
xLinkArr = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)
If Not IsEmpty(xLinkArr) Then
For I = LBound(xLinkArr) To UBound(xLinkArr)
ActiveWorkbook.BreakLink xLinkArr(I), xlLinkTypeExcelLinks
Next I
End If
xChartCount = ActiveSheet.ChartObjects.Count
If xChartCount <> 0 Then
For I = 1 To xChartCount
ActiveSheet.ChartObjects(I).Activate
For Each xSerColl In ActiveChart.SeriesCollection
xSerColl.Values = xSerColl.Values
xSerColl.XValues = xSerColl.XValues
xSerColl.Name = xSerColl.Name
Next
Next
End If
End Sub

3. Druk op F5 of klik op de knop 'Uitvoeren' om de VBA-code te starten.

U ziet nu dat alle grafiekkoppelingen naar hun brongegevens in het huidige werkblad zijn verwijderd.

Als u Kutools voor Excel heeft geïnstalleerd, kunt u met één klik de functie ‘Grafiekreferentie loskoppelen’ gebruiken om de koppeling tussen een grafiek en de bijbehorende brongegevens in Excel te verwijderen.

1. Selecteer in Excel de grafiek waarvan u de koppeling wilt verwijderen.

2. Klik op **Kutools** > **Grafieken** > **Grafiektools** > **Grafiekreferentie loskoppelen** om deze handige functie direct te activeren.

De koppeling tussen de geselecteerde grafiek en de bijbehorende brongegevens wordt direct verbroken.

Hoe verwijdert u de as van een grafiek in Excel?