Estrazione di informazioni da diapositive .ppt

Question

Se ho un diapositive .ppt che voglio estrarre informazioni da, e ho creato il modello per tutte queste diapositive che vengono utilizzati da varie persone attraverso fuori l'organizzazione, e so che tutti i "nomi" a ogni testo scatola di oggetti,

posso usare qualche vb per estrarre queste informazioni fuori delle diapositive .ppt in un database di Access?

So come prendere una maschera di Access e creare una presentazione ppt con informazioni inserite nello stesso modo, solo processo inverso. così io parto dal presupposto che se ho creato queste diapositive ppt, e il nome di tutte le caselle di testo quello che voglio nominarli, che dovrei essere in grado di fare questo nella direzione opposta, giusto?

Answer 1

Sì, è possibile fare il contrario e avere accesso leggere una diapositiva di PowerPoint. Ho creato una presentazione di PowerPoint 2007 con due scivoli, una diapositiva titolo e uno scivolo di contenuti. All'interno di un vuoto di un Access 2007 db, ho aggiunto un modulo di codice con la seguente prova. Sarà inoltre necessario aggiungere un refrenence all'oggetto powerpoint nel progetto di 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

Il testo che si sta dopo è contenuto all'interno dell'oggetto TextEffect associato all'oggetto forma.

Spero che questo aiuti (scusate non ho avuto Office 2003, ma dovrebbe essere molto simile)