1

如果我有一张.ppt要从中提取信息的幻灯片，并且我为所有这些幻灯片设置了模板，这些幻灯片供整个组织中的各种人使用，并且我知道每个文本框对象的所有“名称”，

我可以使用一些 vb 将这些信息从.ppt幻灯片中提取到 access 数据库中吗？

我知道如何以相同的方式获取访问表单并使用输入的信息创建 ppt 演示文稿，只是相反的过程。所以我假设如果我设置这些 ppt 幻灯片，并将所有文本框命名为我想要命名的内容，我应该能够以相反的方向执行此操作，对吗？

4

1 回答 1

6

是的，您可以反其道而行之，并可以阅读幻灯片。我用两张幻灯片、一张标题幻灯片和一张内容幻灯片创建了一个 PowerPoint 2007 演示文稿。在一个空的 access 2007 db 中，我添加了一个带有以下测试的代码模块。您还需要在 Access VBA 项目中添加对 powerpoint 对象的引用。

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，但应该非常相似）

于 2009-10-05T03:34:41.047 回答