开启左侧

VBA——控制幻灯片跳转

[复制链接]
etthink 发表于 2021-11-30 22:45:41 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
SlideShowWindows(Index:=1).View.Previous
SlideShowWindows(Index:=1).View.Next

Me.Parent.SlideShowWindow.View.Previous
Me.Parent.SlideShowWindow.View.gotoSlide()
ActivePresentation.SlideShowSettings.Run
SlideShowWindows(Index:=1).View.Next           '跳转到下一张
SlideShowWindows(Index:=1).View.Previous    '跳转到前一张
SlideShowWindows(Index:=1).View.First           '跳转到第一张

'声明一个整数用来存储点名的位置
Dim position As Integer
position = Rnd * ActivePresentation.Slides.Count + 1
ActivePresentation.SlideShowWindow.View.GotoSlide (position)

学教育技术,上教育技术论坛!http://www.etthink.com
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则


11关注

448粉丝

5675帖子

会员达人更多+
广告位

最新信息

更多+

关注我们:教育技术人

官方微信

官方微博

教育技术热线:

13955453231

学教育技术,上教育技术论坛!

教育技术论坛征稿范围:教育技术应用案例、教程文章、优秀作品等。

Email:sf@etthink.com

Copyright   ©2007-2026  教育技术论坛  Powered by©Discuz!  技术支持:且行资源    ( 皖ICP备10014945号-4 )