Skip to main content

كيفية تصدير الرسوم البيانية إلى رسومات في Excel؟

Author: Xiaoyang Last Modified: 2025-05-30

في Excel، قد تقوم أحيانًا بتوليد بعض الرسوم البيانية من البيانات لجعل البيانات تبدو أكثر وضوحًا ومباشرة. إذا كنت ترغب في حفظ أو تصدير هذه الرسوم البيانية كرسومات لغرض معين، كيف يمكنك القيام بذلك؟

تصدير مخطط إلى رسم بياني باستخدام كود VBA

تصدير عدة مخططات/صور/أشكال إلى رسومات باستخدام Kutools لـ Excel good idea3


تصدير مخطط إلى رسم بياني باستخدام كود VBA

يمكن أن يساعدك الكود التالي VBA في تصدير مخطط محدد من ورقة العمل النشطة كصورة. وسيتم حفظ الصورة في نفس الموقع الذي تم فيه تطبيق المصنف. اتبع الخطوات التالية:

1. حدد المخطط الذي تريد تصديره.

2. ثم اضغط باستمرار على مفتاحي ALT + F11، وسيفتح نافذة Microsoft Visual Basic for Applications.

3. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

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 Sub

4. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، وأدخل الاسم للمخطط المصدر في مربع الحوار كما هو موضح في اللقطة:

vba code to enter the name for the exported chart

5. وبعد ذلك انقر فوق موافق، سيتم تصدير المخطط المحدد بتنسيق Gif وحفظه في نفس موقع الملف الأصلي. شاهد اللقطة:

the selected chart is exported to Gif format

مع الكود VBA أعلاه، يمكنك تصدير مخطط واحد فقط في كل مرة. إذا كنت ترغب في تصدير مخططات أخرى، يرجى تحديد مخطط آخر أولاً، ثم تصديره باستخدام الكود.


تصدير عدة مخططات/صور/أشكال إلى رسومات باستخدام Kutools لـ Excel

أداة تصدير الرسومات الخاصة بـ Kutools لـ Excel يمكنها تصدير عدة مخططات، صور أو أشكال دفعة واحدة في Excel.

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي: (تنزيل مجاني لـ Kutools لـ Excel الآن!)

1. انقر فوق Kutools Plus > استيراد / تصدير > تصدير الرسومات، شاهد اللقطة:

click Export Graphics feature of kutools

2في تصدير الرسومات مربع الحوار، جميع المخططات, الصور و الأشكال قد تم سردها في مربع القائمة على اليسار، حدد النوع الذي تريد تصديره، ثم انقر فوق الزر browse button لتحديد دليل لحفظ الرسومات المصدرة. وفي الوقت نفسه، يمكنك اختيار تنسيق الصور من قائمة تنسيق التصدير حسب الحاجة، مثل GIF, JPEG, TIF أو PNG.

specify the options in the dialog box

3. ثم انقر فوق موافق، سيتم تصدير جميع المخططات والصور والأشكال بنجاح إلى الموقع المحدد. شاهد اللقطات:

a prompt box pops out to remind how many pictures and shapes are exported
arrow down
pictures and shapes have been exported to the specified location

  عرض توضيحي: تصدير الرسومات

 

أفضل أدوات الإنتاجية لمكتب العمل

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات من خلال: التنفيذ الذكي |توليد الشيفرة |إنشاء الصيغ المخصصة |تحليل البيانات وتوليد الرسوم البيانية |استدعاء الوظائف المحسنة
الميزات الشائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو العنوان دون فقدان البيانات | تقريب ...
بحث متقدم: بحث V متعدد المعايير | بحث V متعدد القيم | بحث في عدة ورقات | مطابقة غامضة ....
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة تابعة | قائمة منسدلة متعددة الاختيار ....
إدارة الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاق والأعمدة ...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | أدوات المصنف & أدوات الورقة العمل | مكتبة النص التلقائي (Auto Text) | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب القائمة | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع من الرسوم البيانية (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد

عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

  • تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
  • افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
  • يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!