كيف يمكن فصل المخططات عن البيانات الأصلية في Excel؟

ستقدّم لك هذه الطريقة كود VBA فعّالًا لكسر الروابط بين جميع المخططات وبياناتها الأصلية في ورقة عمل Excel بسرعة. يُرجى اتباع الخطوات التالية:

1. فعّل ورقة العمل المحددة التي تريد كسر جميع روابط المخططات فيها، ثم اضغط معًا على مفتاحَي «Alt» + "F11" لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق «Insert» > «Module»، ثم الصق كود 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 لـ Excel» مثبَّتًا، يمكنك استخدام أداة «فصل الرسم البياني عن الإشارة» الخاصة به لقطع الرابط بين المخطط وبياناته الأصلية بنقرة واحدة فقط في Excel.

1. حدد المخطط الذي ترغب في فصله عن مصدر بياناته في Excel.

2. انقر فوق «Kutools» > «Charts» > «أدوات الرسم البياني» > «فصل الرسم البياني عن الإشارة» لتفعيل هذه الميزة.

سيتم فصل المخطط المحدد عن بياناته الأصلية فورًا.

كيف يمكن كسر محور المخطط في Excel؟