تحرير PowerPoint المضمن من Excel VBA
-
02-07-2019 - |
سؤال
لدي عرض تقديمي لـ PowerPoint مضمن في مصنف Excel.كيف يمكنني تحرير هذا (فتح، نسخ الشرائح، إضافة البيانات إلى الشرائح، إغلاق) باستخدام VBA؟
المحلول
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
امل ان يساعد!
لا تنتمي إلى StackOverflow