كيفية كسر روابط المخططات مع بيانات المصدر في 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؟