在access中可讀取ppt文件嗎？

冬冬

本人想用access對PowerPoint的PPT文件進行管理，現(xiàn)問題是如何在access中預覽ppt文檔。

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

tz-chf

可以。

見《access 2000中文版開發(fā)指南》第780頁。人民郵電出版社（ISBN7-115-08459-9/TP.1578，128元）

還有一本《access 2000中文版高級編程》

這兩本書在手，一切OK！

wwwwa

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

Grant

http://ctxi.cn/forum.php?mod=viewthread&tid=55528

看看這里

冬冬

謝謝各位

冬冬

本人看了Grant的PPT的范例,跟本人需求的不同。本人希望的預覽方式是,選擇ppt文件后在ACCESS的窗體內(nèi)自動預覽該選擇的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文件嗎？