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

آخر تحديث: يونيو 2020

ينطبق على: Office 2019 وما فوق. نوافذ فقط.

هذا سؤال من القارئ:

كجزء من عرض تقريري الفصلي للإدارة ، غالبًا ما أحتاج إلى نسخ عدة شرائح معلومات عامة من عروض تقديمية أخرى. ليست مشكلة كبيرة ، ولكنها ستكون مدخرًا كبيرًا أن تكون قادرًا على أتمتة هذا التمرين. أي VBA ماكرو يساعد على تحقيق ذلك هو موضع تقدير!

كما ذكرت للتو ، يمكنك أتمتة نسخ الشرائح ولصقها في PowerPoint باستخدام Visual Basic for Applications. إذا كنت بحاجة إلى إنشاء العديد من العروض التقديمية كل شهر ، فقد تصبح أتمتة نسخ / استيراد الشرائح هذه توفيرًا كبيرًا للوقت!

PowerPoint VBA لإضافة الشرائح

لنبدأ في هذا التمرين البسيط.

أولاً ، تأكد من تمكين علامة تبويب التطوير الخاصة بك ومرئية. إليك كيفية القيام بذلك .

سأفترض أنك قمت بالفعل بإنشاء عرض تقديمي ممكّن لماكرو (نوع الملف هو .pptm) ​​، والذي قمت بوضعه في نفس الدليل من العرض التقديمي المصدر (والذي سأشير إليه باسم source.pptm). فيما يلي كيفية إنشاء عرض PowerPoint تقديمي باستخدام VBA .

أولاً ، دعنا نأخذ نسخة احتياطية من هذا العرض التقديمي (نسخة بسيطة وحفظ).

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

إليك رمز VBA الذي ستحتاجه لنسخ الشرائح ولصقها تلقائيًا.

زوجان من الافتراضات التي قدمتها:

  • تم تسمية العرض التقديمي المصدر الخاص بك source.pptm
  •  ستقوم بلصق الشرائح 2-4 من العرض التقديمي المصدر
  • ستضع الشرائح المنسوخة بدءًا من الشريحة 5.

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

من الواضح ، لا تتردد في تغيير فهرسة رقم الشريحة في الكود حتى يتناسب مع متطلباتك.

يمكنك جعلها تتكرر خلال عدة عروض تقديمية وإدراج شرائح محددة من كل منها في تقرير الإدارة الخاص بك.

PowerPoint VBA لتكرار الشرائح

بدلاً من نسخ الشرائح إلى عرض تقديمي آخر ، قد ترغب في استنساخ شريحة واحدة أو أكثر في عرضك التقديمي:

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

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

أتمنى أن يساعد 🙂

الحفاظ على التنسيق عند نسخ الشرائح

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

مثال 1

 

Sub main()

Dim objPresentation As Presentation

Dim i As Integer

'open the target presentation

Set objPresentation = Presentations.Open("C:\2.pptx")

For i = 1 To objPresentation.Slides.Count

    objPresentation.Slides.Item(i).Copy

    Presentations.Item(1).Slides.Paste

Next i

objPresentation.Close

End Sub

قبل تشغيل الكود
هذا هو العرض التقديمي مع الشريحة التي نريد نسخها: النتيجة: للتغلب على هذه المشكلة، يمكنك استخدام الكود أدناه:
الشرائح المراد نسخها

نتيجة

 

Sub Example2()

Dim objPresentation As Presentation

Dim i As Integer

'open the target presentation

Set objPresentation = Presentations.Open("C:\2.pptx")

For i = 1 To objPresentation.Slides.Count

    objPresentation.Slides.Item(i).Copy

    Presentations.Item(1).Slides.Paste

    Presentations.Item(1).Slides.Item(Presentations.Item(1).Slides.Count).Design = _

        objPresentation.Slides.Item(i).Design

Next i

objPresentation.Close

End Sub

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


كيفية تصدير كلمات المرور من 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 الآن!