كيفية إنشاء وإضافة شرائح إلى عروض PowerPoint التقديمية باستخدام VBA؟

قبل يومين ، سأل أحد القراء عن وجود طريقة لأتمتة إنشاء عروض PowerPoint التقديمية من البداية ثم إضافة الشرائح بسرعة إلى هذا العرض التقديمي الحالي. أعتقد أن هذا البرنامج النصي قد يكون بدرجة عالية في قائمة وحدات ماكرو PowerPoint الأكثر فائدة. 

كما أشرنا في الماضي ، لا يتضمن PowerPoint مسجلاً ماكرو (بخلاف Excel و Word ، وكلاهما يحتوي على مسجلات لماكرو). لذلك ، يتبقى لنا Visual Basic القديم الجيد للتطبيق الذي يمكننا استخدامه لإنشاء وحدات ماكرو بسيطة لأتمتة PowerPoint. هناك بدائل أخرى لـ PowerPoint Automation ، لكن تلك البدائل تتجاوز نطاق هذا البرنامج التعليمي.

في البرنامج التعليمي القصير اليوم ، سنتناول ثلاث حالات استخدام مختلفة:

  1. إنشاء عرض تقديمي جديد (فارغ أو باستخدام قالب)
  2. أضف الشرائح إلى عرض تقديمي موجود.
  3. مزيج من الحالتين المذكورتين أعلاه (إنشاء من البداية وإضافة شرائح)

هيا بنا نبدأ.

انظر إلى الشريط. إذا كنت لا ترى إدخال المطور في القائمة ، فقبل بدء الترميز ، ستحتاج إلى تمكين علامة تبويب المطور.

بعد أن تجعل قائمة Developer مرئية لشريطك ، انطلق واضغط على Developer ، ثم اضغط على زر Visual Basic (أو ببساطة تابع واضغط على Alt + F11) لفتح Visual Basic IDE.

فبا لإنشاء عرض تقديمي بوربوينت

  1. في محرر VB ، انقر بزر الماوس الأيمن فوق VBAProject واضغط على إدراج .
  2. حدد الوحدة .
  3. قم بلصق التعليمة البرمجية التالية في الوحدة النمطية التي تم إنشاؤها حديثًا.
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
  1. اضغط على ملف ثم حفظ.
  2. لتشغيل التعليمات البرمجية الخاصة بك ، اضغط على تشغيل ثم اختر Run Sub / User Form (أو ببساطة F5).
  3. أغلق محرر VB.

فبا لإدراج الشرائح

  1. في محرر VB ، انقر بزر الماوس الأيمن فوق VBAProject واضغط على إدراج.
  2. حدد الوحدة
  3. قم بلصق التعليمة البرمجية التالية في الوحدة النمطية التي تم إنشاؤها حديثًا.
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
  1. اضغط على ملف ثم حفظ.
  2. لتشغيل التعليمات البرمجية الخاصة بك ، اضغط على تشغيل ثم اختر Run Sub / User Form (أو ببساطة F5).
  3. أغلق محرر VB.

ماكرو لإعداد عرض تقديمي جديد وإضافة شرائح

سيكون ذلك مجرد خلط بين المقتطفين المذكورين أعلاه.

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

بعد ذلك ، يمكنك إلقاء نظرة على برنامجنا التعليمي حول إنشاء الأشكال بشكل برمجي في PowerPoint باستخدام VBA

قم بإنشاء عرض PowerPoint تقديمي من Excel

الحالة الأخيرة هي أنك ترغب في إنشاء عرض PowerPoint تقديمي مباشرةً من جدول بيانات Excel. يمكنك استخدام نفس الأسلوب من Word وتطبيقات Microsoft 365 الأخرى.

  • ربط جدول البيانات بنموذج بيانات PowerPoint (من أدوات >> مراجع)
  • أدخل زرًا في جدول بيانات Excel (المطور >> إدراج ثم اختر زر الأمر).
  • أدخل رمز VBA أدناه في جدول بيانات مشروع VBA (مباشرة في الورقة أو في وحدة VBA النمطية)
  • قم بتعديل البرنامج النصي كما هو مطلوب.
  • قم بتشغيل (ضرب F5) واختبر النتيجة.
Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

استمتع 🙂

إيجابيات برنامج Excel VBA PowerPoint

  • يسهل استخدام VBA في Powerpoint التعامل إذا كان ملف ppt يحتوي على العديد من الشرائح ذات المحتوى الضخم.
  • يوفر VBA مع Powerpoint لمسة من الأتمتة حتى مع توفر وظائف محدودة.

سلبيات برنامج Excel VBA PowerPoint

  • نحتاج إلى تحديد مكتبة كائنات Microsoft PowerPoint 15.0 من خيار المرجع الموجود في خيار قائمة الأدوات، والذي نحتاجه في بداية مثال-1، في كل مرة نقوم فيها بتشغيل التعليمات البرمجية لبرنامج PowerPoint.

أشياء للذكرى

  • احفظ الملف بتنسيق Macro-Enable Presentation بعد كتابة الكود. سيساعدنا هذا على تجنب فقدان الرمز واستخدامه عدة مرات في المستقبل.
  • لن تعمل ميزة إعادة الترميز هنا حيث نحتاج إلى الانتقال من Excel إلى PowerPoint لتغيير الواجهة بين الصفحات.
  • قم دائمًا بتجميع التعليمات البرمجية قبل التشغيل. سيساعدك هذا في العثور على الخطأ في الكود. وهذا مفيد جدًا عندما نكتب أسطرًا كبيرة من التعليمات البرمجية.
  • لتشغيل الكود وتنفيذه، نحتاج إلى فتح ورقة Excel باستخدام المخطط الذي نريد لصقه في شريحة PowerPoint.
  • يمكننا محاذاة المخطط في PowerPoint وفقًا لاحتياجاتنا.

كيفية تصدير كلمات المرور من Microsoft Edge

كيفية تصدير كلمات المرور من Microsoft Edge

تعلم كيفية تصدير كلمات المرور من Microsoft Edge بسهولة وأمان باستخدام خطوات واضحة. قم بتأمين معلوماتك الشخصية بشكل أفضل.

كيفية استخدام انتقالات الشرائح في Microsoft PowerPoint

كيفية استخدام انتقالات الشرائح في Microsoft PowerPoint

تعلم كيفية استخدام انتقالات الشرائح في PowerPoint لجعل عرضك التقديمي مميزًا وتفاعليًا.

كيفية إصلاح تعذر العثور على عنوان IP للخادم في نظام التشغيل Windows 10؟

كيفية إصلاح تعذر العثور على عنوان IP للخادم في نظام التشغيل Windows 10؟

تعرف على كيفية استكشاف خطأ تعذر العثور على عنوان IP للخادم وإصلاحه ، وكذلك احصل على حل سهل لإصلاح هذه المشكلة.

كيفية إصلاح Err_Cache_Miss في جوجل كروم

كيفية إصلاح Err_Cache_Miss في جوجل كروم

هل تتلقى رسالة الخطأ Err_Cache_Miss أثناء استخدامك Google Chrome؟ إليك بعض الإصلاحات السهلة التي يمكنك تجربتها لإصلاح المشكلة بكفاءة.

أفضل 10 مواقع ألعاب غير محظورة في المدارس 2024

أفضل 10 مواقع ألعاب غير محظورة في المدارس 2024

اكتشف أفضل 10 مواقع ألعاب غير محظورة في المدارس 2024، حيث يمكنك اللعب مجاناً دون قيود.

[محلول] كيفية إصلاح خطأ Err_connection_reset على أنظمة التشغيل Windows 10 و Mac و Android؟

[محلول] كيفية إصلاح خطأ Err_connection_reset على أنظمة التشغيل Windows 10 و Mac و Android؟

تتعلم كيفية إصلاح خطأ ERR_CONNECTION_RESET على أنظمة التشغيل Windows 10 و Mac و Android. اتبع الحلول الفعالة الموصى بها لحل المشكلة بنجاح.

كيفية فتح علامات التبويب المغلقة مؤخرًا في Chrome و Firefox و Edge و Safari

كيفية فتح علامات التبويب المغلقة مؤخرًا في Chrome و Firefox و Edge و Safari

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

كيفية إصلاح خطأ فشل أجهزة NMI على أنظمة التشغيل Windows 10 و 8.1 و 8 [محدث]

كيفية إصلاح خطأ فشل أجهزة NMI على أنظمة التشغيل Windows 10 و 8.1 و 8 [محدث]

لإصلاح خطأ فشل أجهزة NMI في النظام، استكشف حلولاً متنوعة مثل إجراء فحص SFC، والتحقق من الأجهزة والبرامج، وتحديث برامج التشغيل والمزيد.

المشكلات الشائعة في Samsung Galaxy A12 وكيفية حلها

المشكلات الشائعة في Samsung Galaxy A12 وكيفية حلها

إذا كنت تمتلك Samsung Galaxy A12 وواجهت مشكلات، إليك قائمة بالحلول للمشاكل الشائعة.

كيفية الترقية من Windows 11 Home إلى Pro

كيفية الترقية من Windows 11 Home إلى Pro

تعلم كيفية ترقية Windows 11 Home إلى Pro بطريقة سهلة وسريعة. احصل على الميزات المتقدمة من Windows 11 Pro الآن!