Hoe kunt u grafiekverbindingen met brongegevens in Excel verbreken?

Deze methode introduceert een VBA om snel de verbindingen tussen alle grafieken en hun brongegevens in een Excel-werkblad te verbreken. Volg deze stappen:

1. Activeer het specifieke werkblad waar u alle grafiekverbindingen wilt verbreken, en druk tegelijk op de toetsen "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 grafiekverbindingen in een werkblad verbreken

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 de toets "F5" of klik op de knop "Uitvoeren" om deze VBA uit te voeren.

Nu ziet u dat alle grafiekverbindingen met hun brongegevens in het huidige werkblad zijn verbroken.

Als u "Kutools voor Excel" hebt geïnstalleerd, kunt u het hulpmiddel "Grafiekreferentie loskoppelen" gebruiken om met één klik in Excel snel de verbinding tussen een grafiek en zijn brongegevens te verbreken.

1. Selecteer de grafiek waarvan u de verbinding moet verbreken in Excel.

2. Klik op "Kutools" > "Grafieken" > "Grafiektools" > "Grafiekreferentie loskoppelen" om deze functie te activeren.

De verbinding tussen de geselecteerde grafiek en zijn brongegevens wordt onmiddellijk verbroken.

Hoe breekt u de grafiekas in Excel?