Ta metoda wprowadzi VBA w celu szybkiego zerwania połączeń między wszystkimi wykresami i ich danymi źródłowymi w arkuszu programu Excel. Wykonaj następujące czynności:

1. Włącz określony arkusz roboczy, w którym chcesz przerwać wszystkie łącza wykresu, i naciśnij inny + F11 klucze razem, aby otworzyć okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Moduł, a następnie wklej VBA do nowego okna modułu.

VBA: Przerwij wszystkie łącza wykresów w arkuszu

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. naciśnij F5 lub kliknij run przycisk, aby uruchomić ten VBA.

Teraz zobaczysz, że wszystkie łącza wykresów są zepsute do ich danych źródłowych w bieżącym arkuszu.

Jeśli Kutools dla programu Excel zainstalowany, możesz zastosować jego Odłącz wykres narzędzie do szybkiego przerywania połączenia między wykresem a jego danymi źródłowymi za pomocą jednego kliknięcia w programie Excel.

1. Wybierz wykres, którego łącze chcesz przerwać w programie Excel.

2. Kliknij Kutools > Wykresy > Narzędzia wykresów > Odłącz wykres aby włączyć tę funkcję.

Następnie zobaczysz, że połączenie między wybranym wykresem a jego danymi źródłowymi zostało natychmiast zerwane.

Jak rozbić oś wykresu w programie Excel?