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

Этот метод представляет собой VBA-код, который быстро разрывает все связи между всеми диаграммами и их исходными данными на листе Excel. Пожалуйста, выполните следующие действия:

1. Откройте нужный лист, где вы хотите разорвать все связи диаграмм, и нажмите клавиши "Alt" + "F11", чтобы открыть окно Microsoft Visual Basic for Applications.

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?