Denna metod kommer att introducera en VBA för att snabbt bryta länkarna mellan alla diagram och deras källdata i ett Excel-kalkylblad. Gör så här:

1. Aktivera det angivna kalkylbladet där du vill bryta alla diagramlänkar och tryck andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulerna, och klistra sedan in VBA i det nya modulfönstret.

VBA: Bryt alla diagramlänkar i ett kalkylblad

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. Tryck F5 eller klicka på Körning för att köra denna VBA.

Nu kommer du att se att alla diagramlänkar är brutna till deras källdata i det aktuella kalkylbladet.

Om du har Kutools för Excel installerad kan du använda den Lossa diagram verktyg för att snabbt bryta länken mellan ett diagram och dess källdata med bara ett klick i Excel.

1. Välj diagrammet vars länk du behöver bryta i Excel.

2. Klicka Kutools > Diagram > Diagramverktyg > Lossa diagram för att aktivera den här funktionen.

Då ser du att länken mellan det valda diagrammet och dess källdata har brutits omedelbart.

Hur bryter man diagramaxel i Excel?