在access中可读取ppt文件吗？

Grant

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

看看这里

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有没相关资料