Этот метод представит 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 ключ или щелкните Run кнопку для запуска этого VBA.

Теперь вы увидите, что все ссылки диаграммы на исходные данные на текущем листе разорваны.

Если вы только что Kutools for Excel установлен, вы можете применить его Отсоединить диаграмму инструмент, позволяющий быстро разорвать связь между диаграммой и ее исходными данными одним щелчком мыши в Excel.

1. Выберите диаграмму, ссылку на которую нужно разорвать в Excel.

2. Нажмите Кутулс > Графики > Инструменты для диаграмм > Отсоединить диаграмму для включения этой функции.

Тогда вы увидите, что связь между выбранной диаграммой и ее исходными данными немедленно разорвана.

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