Deze methode introduceert een VBA om snel de koppelingen tussen alle grafieken en hun brongegevens in een Excel-werkblad te verbreken. Ga als volgt te werk:

1. Schakel het opgegeven werkblad in waar u alle diagramkoppelingen wilt verbreken, en druk op anders + F11 toetsen samen om het venster Microsoft Visual Basic for Applications te openen.

2. Klikken Invoegen > Moduleen plak de VBA in het nieuwe modulevenster.

VBA: verbreek alle diagramkoppelingen in een werkblad

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

Nu zult u zien dat alle diagramkoppelingen verbroken zijn met hun brongegevens in het huidige werkblad.

Als je Kutools for Excel geïnstalleerd, kunt u zijn Koppel de kaart los tool om snel de link tussen een diagram en de brongegevens te verbreken met slechts één klik in Excel.

1. Selecteer het diagram waarvan u de link in Excel moet verbreken.

2. Klikken Kutools > Grafieken > Hulpmiddelen voor grafieken > Koppel de kaart los om deze functie in te schakelen.

Vervolgens ziet u dat de link tussen de geselecteerde grafiek en de brongegevens onmiddellijk is verbroken.

Hoe de grafiekas in Excel te breken?