Metode ini akan memperkenalkan VBA untuk memutus tautan dengan cepat antara semua bagan dan data sumbernya di lembar kerja Excel. Harap lakukan sebagai berikut:

1. Aktifkan lembar kerja yang ditentukan di mana Anda ingin memutuskan semua tautan bagan, dan tekan lain + F11 bersama untuk membuka jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, lalu tempelkan VBA ke jendela modul baru.

VBA: Pisahkan semua tautan bagan di lembar kerja

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. tekan F5 atau klik Run tombol untuk menjalankan VBA ini.

Sekarang Anda akan melihat semua tautan bagan rusak ke data sumbernya di lembar kerja saat ini.

Jika Anda memiliki Kutools untuk Excel diinstal, Anda dapat menerapkannya Bagan Lepas alat untuk dengan cepat memutuskan tautan antara bagan dan data sumbernya hanya dengan satu klik di Excel.

1. Pilih bagan yang tautannya perlu Anda hentikan di Excel.

2. Klik Kutools > Charts > Alat Bagan > Bagan Lepas untuk mengaktifkan fitur ini.

Kemudian Anda akan melihat tautan antara bagan yang dipilih dan data sumbernya telah segera diputus.

Bagaimana cara memecah sumbu grafik di Excel?