استخراج المعلومات من الشرائح .ppt

Question

إذا كان لدي .ppt تنزلق أن أرغب في استخراج المعلومات خارج، وقمت بإعداد القالب لجميع هذه الشرائح التي يتم استخدامها من قبل مختلف الأشخاص من خلال المنظمة، وأنا أعرف كل "الأسماء" لكل كائن مربع النص،

هل يمكنني استخدام بعض VB لسحب هذه المعلومات من .ppt الشرائح في قاعدة بيانات الوصول؟

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

Answer 1

نعم يمكنك القيام بالعكس والوصول إلى قراءة شريحة PowerPoint. قمت بإنشاء عرض عرض PowerPoint 2007 مع شريحتين، شريحة العنوان وشرائح محتوى. داخل Access Access 2007 DB، أضفت وحدة نمطية مع الاختبار التالي. ستحتاج أيضا إلى إضافة تغطية إلى كائن PowerPoint في مشروع Access VBA.

Public Sub ImportPowerPoint()
    Dim app As PowerPoint.Application
    Dim pres As PowerPoint.Presentation
    Dim ps As PowerPoint.Presentations
    Set app = New PowerPoint.Application
    app.Activate
    Set pres = app.Presentations.Open("C:\Temp\title slide.pptx")
    Debug.Print pres.Slides(1).Shapes(1).Name & " " & pres.Slides(1).Shapes(1).TextEffect.Text
    Debug.Print pres.Slides(1).Shapes(2).Name & " " & pres.Slides(1).Shapes(2).TextEffect.Text
    Debug.Print pres.Slides(2).Shapes(1).Name & " " & pres.Slides(2).Shapes(1).TextEffect.Text
    Debug.Print pres.Slides(2).Shapes(2).Name & " " & pres.Slides(2).Shapes(2).TextEffect.Text
End Sub

يتم احتواء النص الذي أنت بعده داخل كائن TextEffect المرتبط بكائن الشكل.

آمل أن يساعد هذا (آسف لم يكن لدي Office 2003 ولكن يجب أن يكون متشابها للغاية)