Bydd y dull hwn yn cyflwyno VBA i dorri'r cysylltiadau rhwng yr holl siartiau a'u data ffynhonnell yn gyflym mewn taflen waith Excel. Gwnewch fel a ganlyn:

1. Galluogi'r daflen waith benodol lle rydych chi am dorri pob dolen siart, a phwyso Alt + F11 allweddi gyda'i gilydd i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, ac yna gludwch y VBA i mewn i ffenestr y modiwl newydd.

VBA: Torri pob dolen siart mewn taflen waith

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. Gwasgwch F5 allwedd neu cliciwch y Run botwm i redeg y VBA hwn.

Nawr fe welwch fod yr holl gysylltiadau siart wedi'u torri i'w data ffynhonnell yn y daflen waith gyfredol.

Os oes gennych Kutools ar gyfer Excel wedi'i osod, gallwch gymhwyso ei Siart Datgysylltiad offeryn i dorri'r cysylltiad rhwng siart a'i ddata ffynhonnell yn gyflym gyda dim ond un clic yn Excel.

1. Dewiswch y siart y mae angen i chi dorri ei ddolen yn Excel.

2. Cliciwch Kutools > Siartiau > Offer Siart > Siart Datgysylltiad i alluogi'r nodwedd hon.

Yna fe welwch fod y cysylltiad rhwng y siart a ddewiswyd a'i ddata ffynhonnell wedi'i dorri ar unwaith.

Sut i dorri echel siart yn Excel?