Extraindo informações de lâminas .ppt

Question

Se eu tiver um .ppt slides que eu quero extrair informações de, e eu configurar o modelo para todos esses slides que são utilizados por várias pessoas através de fora da organização, e sei que todos os "nomes" para cada texto caixa de objeto,

Posso usar algum vb para puxar essa informação fora dos slides .ppt em um banco de dados de acesso?

Eu sei como tirar um formulário de acesso e criar uma apresentação ppt com informações introduzidas da mesma forma, apenas processo inverso. então eu estou supondo que, se eu configurar esses slides ppt, e nomear todas as caixas de texto que eu quero nomeá-los, que eu deveria ser capaz de fazer isso no sentido oposto, certo?

Answer 1

Sim, você pode fazer o inverso e ter acesso ler um slide do PowerPoint. Criei uma apresentação do PowerPoint 2007 com duas lâminas, uma lâmina de Título e um slide de conteúdo. Dentro de um um db vazio Access 2007, eu adicionei um módulo de código com o seguinte teste. Você também vai precisar adicionar uma refrenence ao objeto powerpoint no projeto do 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

O texto que você está depois está contida dentro do objeto TextEffect associado ao objeto forma.

espero que isso ajude (desculpe eu não ter o Office 2003, mas deve ser muito similar)