كيف يمكن تصدير المخططات إلى صور في Excel؟
في Excel، قد ترغب أحيانًا في إنشاء مخططات من بياناتك لجعلها أكثر وضوحًا وتأثيرًا بصريًّا. فكيف يمكنك حفظ هذه المخططات أو تصديرها كصور عند الحاجة؟
تصدير مخطط إلى صورة باستخدام كود VBA
تصدير عدة مخططات/صور/أشكال إلى صور باستخدام Kutools لـ Excel 
تصدير مخطط إلى صورة باستخدام كود VBA
يتيح لك الكود التالي المكتوب بلغة VBA تصدير مخطط محدد من ورقة العمل النشطة كصورة، وسيتم حفظ الصورة تلقائيًا في نفس المجلد الموجود فيه ملف المصنف الذي تم تنفيذ العملية عليه. اتبع الخطوات التالية:
1. حدد المخطط الذي ترغب في تصديره.
2. ثم اضغط مع الاستمرار على مفتاحَيALT + F11، وسيفتح ذلك نافذةMicrosoft Visual Basic for Applications.
3. انقر علىإدراج > وحدة برمجية (Module)، ثم الصق الكود التالي في نافذة الوحدة البرمجية.
VBA: تصدير المخطط إلى صورة
Option Explicit
Sub ExportChart()
Const sSlash$ = "/"
Const sPicType$ = ".gif"
Dim sChartName$
Dim sPath$
Dim sBook$
Dim objChart As ChartObject
On Error Resume Next
Set objChart = ActiveSheet.ChartObjects(1)
If objChart Is Nothing Then
MsgBox "No charts have been detected on this sheet", 0
Exit Sub
End If
If ActiveChart Is Nothing Then
MsgBox "You must select a single chart for exporting ", 0
Exit Sub
End If
Start:
sChartName = Application.InputBox("Please Specify a name for the exported chart" & vbCr & _
"There is no default name available" & vbCr & _
"The chart will be saved in the same folder as this file", "Chart Export", "")
If sChartName = Empty Then
MsgBox "You have not entered a name for this chart", , "Invalid Entry"
Goto Start
End If
If sChartName = "False" Then
Exit Sub
End If
sBook = ActiveWorkbook.Path
sPath = sBook & sSlash & sChartName & sPicType
ActiveChart.Export Filename:=sPath, FilterName:="GIF"
End Sub4. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، ثم أدخل اسمًا للمخطط المصدر في مربع الحوار الظاهر، كما في لقطة الشاشة:
5. ثم انقر على زرموافق (OK)، وسيتم تصدير المخطط المحدد بتنسيقGif وحفظه في نفس موقع الملف الأصلي. انظر لقطة الشاشة:
باستخدام كود VBA أعلاه، يمكنك تصدير مخطط واحد في كل مرة. إذا رغبت في تصدير مخططات أخرى، يُرجى تحديد المخطط الآخر أولًا، ثم تصديره باستخدام الكود.
تصدير عدة مخططات/صور/أشكال إلى صور باستخدام Kutools لـ Excel
تتيح لك أداةKutools لـ Excel’s تصدير الرسم البيانيتصدير عدة مخططات أو صور أو أشكال دفعة واحدة في Excel.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية: ()حمّل مجانًا Kutools لـ Excel الآن!)
1. انقر علىKUTOOLS PLUS > استيراد/تصدير > تصدير الرسم البياني، انظر لقطة الشاشة:
2. في مربع حوارتصدير الرسم البياني، يتم عرض جميعالمخططاتوالصوروالأشكالفي قائمة على اليسار. حدّد النوع الذي تريد تصديره، ثم انقر على زر
لاختيار مجلد لحفظ الرسم البياني المصدَّر. وفي الوقت نفسه، يمكنك تحديد تنسيق الصورة من قائمة تنسيقات التصدير حسب احتياجاتك، مثلGIF أوJPEG أوTIF أوPNG.
3. بعد ذلك، انقر على زرموافق (OK)، وسيتم تصدير جميع المخططات والصور والأشكال بنجاح إلى الموقع المحدد. راجع لقطات الشاشة:
 |
 |
 |
عرض توضيحي: تصدير الرسم البياني
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل