应用思考-教育技术论坛

标题: VBA——控制幻灯片跳转 [打印本页]

作者: etthink 时间: 2021-11-30 22:45
标题: VBA——控制幻灯片跳转
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/)