Този метод ще въведе VBA за бързо прекъсване на връзките между всички диаграми и техните изходни данни в работен лист на Excel. Моля, направете следното:

1. Активирайте посочения работен лист, където искате да прекъснете всички връзки на диаграмата, и натиснете Друг + F11 клавишите заедно, за да отворите прозореца на Microsoft Visual Basic за приложения.

2. Щракнете Поставете > Модулии след това поставете 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. Щракнете Kutools > Графики > Инструменти за диаграми > Отделяне на диаграма за да активирате тази функция.

След това ще видите, че връзката между избраната диаграма и нейните изходни данни е прекъсната незабавно.

Как да прекъсна диаграмата в Excel?