كيف تنسخ إضافة شرائح إلى عرض 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 ولكن بدلاً من ذلك يمكنك تعيين خاصية التصميم للشرائح.

اترك تعليقاً

قائمة تحقق قابلة للطباعة لتخطيط الفعاليات وقالب ميزانية لبرنامج Word

قائمة تحقق قابلة للطباعة لتخطيط الفعاليات وقالب ميزانية لبرنامج Word

استخدم قائمة التحقق القابلة للطباعة لتخطيط الفعاليات وقالب الميزانية في Word لتتبع المسؤولين، والمواعيد النهائية، والتكاليف، والموردين، وجاهزية يوم الفعالية مع فحوصات جودة واضحة.

كيفية إصلاح عدم احتساب معادلات Excel تلقائيًا في 3 خطوات سهلة

كيفية إصلاح عدم احتساب معادلات Excel تلقائيًا في 3 خطوات سهلة

أصلح معادلات Excel التي لا تُحتسب تلقائيًا في ثلاث خطوات: استعادة وضع الحساب، فرض إعادة الحساب، وإصلاح المعادلات المنسقة كنص.

قالب جدول تنظيف أسبوعي قابل للطباعة لمضيفي Airbnb (Word و PDF)

قالب جدول تنظيف أسبوعي قابل للطباعة لمضيفي Airbnb (Word و PDF)

استخدم جدول التنظيف الأسبوعي القابل للطباعة هذا لاستضافة Airbnb لتنظيم عمليات التبديل، والتنظيف الدوري، وإعادة التخزين، والفحوصات، والتسليم من Word إلى PDF.

قالب سجل صيانة المعدات في Excel لمديري الورش: دليل إعداد من 4 خطوات

قالب سجل صيانة المعدات في Excel لمديري الورش: دليل إعداد من 4 خطوات

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

قالب عرض تقديمي لملف تعريف المستثمرين بأسلوب بسيط لبرنامج باوربوينت للشركات الناشئة في مجال التكنولوجيا: مخطط عملي من 12 شريحة

قالب عرض تقديمي لملف تعريف المستثمرين بأسلوب بسيط لبرنامج باوربوينت للشركات الناشئة في مجال التكنولوجيا: مخطط عملي من 12 شريحة

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

قالب عرض بوربوينت مجاني لقوائم العقارات الحديثة: مخطط عملي لعرض البائع

قالب عرض بوربوينت مجاني لقوائم العقارات الحديثة: مخطط عملي لعرض البائع

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

HubSpot Free CRM مقابل Zoho CRM: الخيار الأفضل للوسطاء العقاريين المستقلين في عام 2026

HubSpot Free CRM مقابل Zoho CRM: الخيار الأفضل للوسطاء العقاريين المستقلين في عام 2026

قارن بين HubSpot Free CRM و Zoho CRM للوسطاء العقاريين المستقلين، بما في ذلك جهات الاتصال، وخطوط المعاملات، والأتمتة، والتخصيص، وجدولة المواعيد، والحدود، ومحفزات الترقية.

كيفية إصلاح مشكلة عدم عمل الصوت في تسجيل شاشة PowerPoint على Windows

كيفية إصلاح مشكلة عدم عمل الصوت في تسجيل شاشة PowerPoint على Windows

أصلح تسجيلات شاشة PowerPoint الصامتة من خلال التحقق من عنصر التحكم في الصوت، وأذونات الميكروفون في Windows، وجهاز الإدخال النشط، وتوقعات صوت النظام، وتحديثات Office.

قالب PDF قابل للطباعة لحجز الوقت اليومي للمحترفين العاملين من المنزل: دليل للمبتدئين

قالب PDF قابل للطباعة لحجز الوقت اليومي للمحترفين العاملين من المنزل: دليل للمبتدئين

استخدم قالب PDF قابل للطباعة لحجز الوقت اليومي لتخطيط ساعات العمل المركّز، والاجتماعات، والاستراحات، والمهام الإدارية، وهوامش الأمان الواقعية دون إرهاق يومك.

قالب عرض تقديمي مجاني لتقرير حالة المشروع لفرق الأجايل

قالب عرض تقديمي مجاني لتقرير حالة المشروع لفرق الأجايل

أنشئ عرضًا تقديميًا موجزًا لتقرير حالة مشروع الأجايل يتضمن أهداف السبرنت، والنتائج، والمخاطر، وإشارات الجودة، والقرارات، والخطوات التالية—دون تحويل العرض إلى مجرد قائمة مهام غير منظمة.