كيفية إنشاء وإضافة شرائح إلى عروض 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

استمتع 🙂