在access中可读取ppt文件吗？

冬冬

本人想用access对PowerPoint的PPT文件进行管理，现问题是如何在access中预览ppt文档。

就是能否在access中播放ppt文档。

tz-chf

可以。

见《access 2000中文版开发指南》第780页。人民邮电出版社（ISBN7-115-08459-9/TP.1578，128元）

还有一本《access 2000中文版高级编程》

这两本书在手，一切OK！

wwwwa

PowerPoint中也有VBA，在ACCESS中操作PPT，与操作EXCEL一致。

Grant

http://www.office-cn.net/forum.php?mod=viewthread&tid=55528

看看这里

冬冬

谢谢各位

冬冬

本人看了Grant的PPT的范例,跟本人需求的不同。本人希望的预览方式是,选择ppt文件后在ACCESS的窗体内自动预览该选择的PPT文件,同时支持该PPT文件中的图片动画、文字动画的播放。（预览的效果就像Powerpoint 中按F5运行的效果，不要手工翻页）不知能否做到。

andymark

微软下载中心的例子,供参考

Grant

          Dim holder As Long, present As Object
            Dim pptobj As PowerPoint.Application
            Set pptobj = New PowerPoint.Application
            pptobj.Visible = True
            pptobj.WindowState = ppWindowMinimized

          ' 启用powerpnt并打开ppt文件.
          Set pptobj = CreateObject("owerPoint.Application")
          Set present = pptobj.Presentations.Open _
             (CurrentProject.Path & "\pptexample.ppt")

    With pptobj.ActivePresentation.SlideShowSettings
        .ShowType = ppShowSpeaker
        .LoopUntilStopped = msoTrue
        .ShowWithNarration = msoTrue
        .ShowWithAnimation = msoTrue
        .RangeType = ppShowSlideRange
        .StartingSlide = 1
        .EndingSlide = 2
        .AdvanceMode = ppSlideShowUseSlideTimings
        .PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
        .Run
    End With



方法有很多种.不过在OLE中播放有难度,不知道andymark有没相关资料

冬冬

本人需求的就是在OLE中播放PPT文件,有范例吗?

冬冬

各位大师，有办法解决在OLE中自动播放PPT文件吗？