تحرير PowerPoint المضمن من Excel VBA

Question

لدي عرض تقديمي لـ PowerPoint مضمن في مصنف Excel.كيف يمكنني تحرير هذا (فتح، نسخ الشرائح، إضافة البيانات إلى الشرائح، إغلاق) باستخدام VBA؟

Answer 1

1.قم بإضافة مرجع إلى PowerPoint Object Model إلى تطبيق VBA الخاص بك

من نافذة VBA، اختر أدوات | مراجع
بحث مكتبة كائنات Microsoft Powerpoint 12.0 والتحقق من ذلك

2.حدد وتنشيط كائن عرض PowerPoint التقديمي

ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen

ملحوظة:يفترض هذا الرمز أن يتم تسمية كائن PowerPoint الكائن 1 (انظر في الزاوية العلوية اليسرى لترى ما هو اسمه بالفعل) وأنه موجود في الورقة النشطة.

3.احصل على مرجع لكائن العرض التقديمي

Dim p As PowerPoint.Presentation
Set p = Selection.Object

4.التلاعب بها

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

p.Slides.Add 1, ppLayoutBlank

5.قم بإلغاء تحديده

أسهل طريقة هي فقط تحديد خلية.

[a1].Select

امل ان يساعد!