Extracción de información de las diapositivas .ppt

Question

Si tengo unas diapositivas .ppt que quiero extraer información de, y me juego hasta la plantilla para todas estas diapositivas que son utilizados por varias personas a través de la organización, y sé que todos los "nombres" a cada texto cuadro de objeto,

¿Puedo utilizar algún vb para tirar de que la información de las diapositivas .ppt en una base de datos de acceso?

Yo sé cómo tomar una forma de acceso y crear una presentación ppt con información introducida en la misma forma, solo proceso inverso. así que estoy asumiendo que si he creado estas diapositivas ppt, y el nombre de todos los cuadros de texto lo que quiero nombrarlos, que debería ser capaz de hacer esto en la dirección opuesta, ¿verdad?

Answer 1

Sí se puede hacer a la inversa y tienen acceso leer una diapositiva de PowerPoint. He creado una presentación de PowerPoint 2007 con dos toboganes, una diapositiva de título y un tobogán de contenido. Dentro de un vacío un acceso db 2007, he añadido un módulo de código con la siguiente prueba. También tendrá que añadir un refrenence al objeto de PowerPoint en el proyecto de 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

El texto que está después está contenido dentro del objeto TextEffect asociado al objeto de forma.

Espero que esta ayuda (lo siento, no tengo oficina 2003, pero debería ser muy similar)