Mit dieser Methode wird ein VBA eingeführt, um die Verknüpfungen zwischen allen Diagrammen und ihren Quelldaten in einem Excel-Arbeitsblatt schnell zu lösen. Bitte gehen Sie wie folgt vor:

1. Aktivieren Sie das angegebene Arbeitsblatt, in dem Sie alle Diagrammverknüpfungen aufheben möchten, und drücken Sie Andere + F11 Tasten zusammen, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie Insert > Modulund fügen Sie dann den VBA in das neue Modulfenster ein.

VBA: Unterbrechen Sie alle Diagrammverknüpfungen in einem Arbeitsblatt

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. Drücken Sie F5 Taste oder klicken Sie auf Führen Sie Schaltfläche, um diese VBA auszuführen.

Jetzt sehen Sie, dass alle Diagrammverknüpfungen im aktuellen Arbeitsblatt mit ihren Quelldaten unterbrochen sind.

Wenn Sie Kutools for Excel installiert, können Sie seine anwenden Diagramm abnehmen Tool zum schnellen Unterbrechen der Verknüpfung zwischen einem Diagramm und seinen Quelldaten mit nur einem Klick in Excel.

1. Wählen Sie das Diagramm aus, dessen Link Sie in Excel unterbrechen möchten.

2. Klicken Sie Kutoolen > Charts > Diagrammwerkzeuge > Diagramm abnehmen , um diese Funktion zu aktivieren.

Dann sehen Sie, dass die Verbindung zwischen dem ausgewählten Diagramm und seinen Quelldaten sofort unterbrochen wurde.

Wie kann ich die Diagrammachse in Excel brechen?