尚未解决-求助PPT如何定时自动切换指定页

sophialxr 发表于: 2009-6-30 17:10 来源: 扑奔PPT网

想在PPT里面实现自动切换指定页功能,具体来说就是无论当前页是哪一张幻灯片,在不进行任何操作的情况下,满五分钟自动切换到第一张幻灯片.请问如何实现?

谢谢-

[ 本帖最后由 sophialxr 于 2009-7-1 10:57 编辑 ]

大家对尚未解决-求助PPT如何定时自动切换指定页的评论

laose 发表于 2009-6-30 19:59:08: 给你个宏（复制到VBE的模块中）
如果测试成功且符合你的要求，请回帖！！

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
If Wn.View.CurrentShowPosition = 1 Then
      Exit Sub
Else
      Sleep 5000
      Wn.View.GotoSlide 1
End If
End Sub

[ 本帖最后由 laose 于 2009-6-30 20:25 编辑 ]
sophialxr 发表于 2009-6-30 20:18:00: 这个方法可以，是自动跳转到第一页，谢谢啊。

还想请问下，如何控制时间
sophialxr 发表于 2009-6-30 20:25:33: 刚才通过录制宏的方式，也达到了跳转的目的，现在还是控制不了时间
laose 发表于 2009-6-30 20:26:35: 刚才没有注意你的跳转时间的要求，重新贴了代码，再试试！
sophialxr 发表于 2009-6-30 20:31:50: 你太强大了，我真是太佩服你了。

顺便问下，要想学到你这样的程度，必须要学会VB编程吗？
laose 发表于 2009-6-30 20:32:55: 哈哈，我也是一知半解的，水平非常差，无极才是高手，怎么样效果符合要求吗？
sophialxr 发表于 2009-6-30 20:36:12: 你太谦虚了，我才是个菜鸟，
还想请教下，要怎么样才可以打开每一页幻灯处的VB编辑状态呢？我直接选VB编辑器，里面没有打开的页，我只会先加入一个控件，然后双击控件打开VB编辑状态，然后修改代码。
laose 发表于 2009-6-30 20:37:36: alt+f11
sophialxr 发表于 2009-6-30 20:42:30: 这个快捷键我知道，
也许是我说得不太明白，我的意思是，如果一个空白幻灯片，我不添加控件，用ALT+F11，只打开了VB编辑器，里面没有打开任何页比如 Slide 1 的编辑。
laose 发表于 2009-6-30 20:51:20: 用快捷键进入VBE，不显示Slide 1 是因为你在Slide 1上没有添加控件。
如果要用控件，先添加控件再查看代码，即进入VBE了
如果不需要控件，那么按快捷键后可以点击“插入—窗体/模块/类模块”来进行代码编写
当然如果你在母板模式下添加控件，进去后显示的是"slidemaster"
sophialxr 发表于 2009-6-30 20:56:32: 谢谢，终于明白一点点了。

不过还有一个问题，这段代码有问题。

插入这段代码的页，无法正常切换下一张。
sophialxr 发表于 2009-6-30 20:57:21: 还有个问题，你的头像为啥是绿色的？
laose 发表于 2009-6-30 21:02:37: 代码有问题是可能的，因为sleep 是调用系统时间的api。作为自动化代码（5秒钟跳回第一页）与下翻页的行为是反方向的（即有冲突），所以这个代码需要优化才没问题。不过我有事情要下了，等其他高手帮你优化吧！！再见！！！

[ 本帖最后由 laose 于 2009-6-30 21:06 编辑 ]