Цей метод запровадить VBA для швидкого розриву зв’язків між усіма діаграмами та їх вихідними даними на аркуші Excel. Будь ласка, виконайте наступне:

1. Увімкніть вказаний аркуш, де ви хочете розірвати всі посилання діаграми, та натисніть інший + F11 клавіші разом, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. Клацання Insert > Модулі, а потім вставте VBA у нове вікно модуля.

VBA: Розбийте всі посилання діаграми на аркуші

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. Прес F5 або клацніть на прогін для запуску цього VBA.

Тепер ви побачите, що всі посилання діаграми розбиті на вихідні дані на поточному аркуші.

Якщо у вас є Kutools для Excel встановлений, ви можете застосувати його Від'єднати діаграму інструмент для швидкого розриву зв'язку між діаграмою та її вихідними даними лише одним клацанням миші в Excel.

1. Виберіть діаграму, посилання якої потрібно розірвати в Excel.

2. Клацання Кутулс > Чарти > Інструменти діаграм > Від'єднати діаграму щоб увімкнути цю функцію.

Тоді ви побачите зв’язок між вибраною діаграмою та її вихідними даними негайно порушено.

Як розбити вісь діаграми в Excel?