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)