Extraire des informations de diapositives .ppt

Question

Si je glisse de .ppt que je veux extraire des informations sur, et je mis en place le modèle pour toutes ces diapositives qui sont utilisées par différentes personnes à travers l'organisation, et je sais que tous les « noms » à chaque texte objet de boîte,

puis-je utiliser certains vb pour tirer cette information sur les diapositives .ppt dans une base de données d'accès?

Je sais comment prendre une forme d'accès et créer une présentation ppt avec les informations entrées de la même façon, tout processus inverse. donc je suppose que si je mis en place ces diapositives ppt, et le nom de toutes les zones de texte ce que je veux les nommer, que je devrais être en mesure de le faire dans le sens inverse, à droite?

Answer 1

Oui, vous pouvez faire l'inverse et d'avoir un accès en lecture d'un diaporama powerpoint. J'ai créé une présentation powerpoint 2007 avec deux diapositives, une diapositive de titre et une diapositive de contenu. A l'intérieur d'un accès un vide 2007 db, j'ai ajouté un module de code avec le test suivant. Vous aurez également besoin d'ajouter un refrenence à l'objet powerpoint dans le projet VBA Access.

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

le texte que vous êtes après est contenu dans l'objet TextEffect associé à l'objet de forme.

espérons que cette aide (désolé, je ne l'ai pas Office 2003, mais devrait être très similaire)