我正在信息亭上显示“交互式” PowerPoint演示文稿(您可以触摸幻灯片上的一些图标来浏览演示文稿)。
但是,我想设置一个计时器,使其在显示某张幻灯片的xx秒后返回到第一张幻灯片。
我认为最好的解决方案是宏,但是我真的在任何地方都找不到任何提示。任何建议都可以提供帮助,甚至可以解决一部分问题的vba代码部分。
答案 0 :(得分:1)
您可以使用VB宏的SlideShowView.GotoSlide
方法来执行此操作。但是,由于您的问题没有尝试,并且此网站不是免费的编码服务;请在上面有一个能负担得起的代码块,然后要求缺陷或改进。
答案 1 :(得分:1)
您需要添加 delayed 宏才能转到特定幻灯片:
lag = 120 'Number of Seconds
start = Timer
While Timer < Start + lag
DoEvents 'i.e do nothing
Wend
ActivePresentation.SlideShowWindow.View.GotoSlide (SlideNumber)
然后,您还需要play when you reach that one certain slide的子例程。 您可以通过以下方式做到这一点:
Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
If SSW.View.CurrentShowPosition = SSW.Presentation.Slides(x).SlideIndex Then
'PUT CODE HERE
End If
End Sub
答案 2 :(得分:0)
我实际上设法在没有任何宏的情况下实现了这一目标! 在幻灯片放映设置中,只需将演示文稿设置为信息亭模式,然后仅选择第一张幻灯片作为要在幻灯片放映中显示的幻灯片。然后为所有幻灯片设置一个计时器,以便在您喜欢的时间后自动转到下一张幻灯片(有一个按钮可将设置应用于所有幻灯片)。下一张幻灯片将始终是第一张,因为它是您选择的唯一幻灯片。因此,无论您浏览演示文稿中的链接的幻灯片是什么,设置完之后,它始终会回到开头。