Office中国论坛/Access中国论坛

标题: 在access中可读取ppt文件吗？ [打印本页]

作者: 冬冬 时间: 2007-7-2 06:05
标题: 在access中可读取ppt文件吗？
本人想用access对PowerPoint的PPT文件进行管理，现问题是如何在access中预览ppt文档。

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

作者: tz-chf 时间: 2007-7-2 07:26
可以。

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

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

这两本书在手，一切OK！

作者: wwwwa 时间: 2007-7-2 19:50
PowerPoint中也有VBA，在ACCESS中操作PPT，与操作EXCEL一致。

作者: Grant 时间: 2007-7-3 01:05
http://www.office-cn.net/forum.php?mod=viewthread&tid=55528

看看这里

作者: 冬冬 时间: 2007-7-3 18:39
谢谢各位

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

作者: andymark 时间: 2007-7-4 18:34
微软下载中心的例子,供参考

[attach]25215[/attach]

作者: Grant 时间: 2007-7-4 20:11
      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有没相关资料

作者: 冬冬 时间: 2007-7-6 01:48
本人需求的就是在OLE中播放PPT文件,有范例吗?

作者: 冬冬 时间: 2007-7-10 01:02
各位大师，有办法解决在OLE中自动播放PPT文件吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)