Question

我正在信息亭上显示“交互式” PowerPoint演示文稿（您可以触摸幻灯片上的一些图标来浏览演示文稿）。

但是，我想设置一个计时器，使其在显示某张幻灯片的xx秒后返回到第一张幻灯片。

我认为最好的解决方案是宏，但是我真的在任何地方都找不到任何提示。任何建议都可以提供帮助，甚至可以解决一部分问题的vba代码部分。

Answer 1

您可以使用VB宏的SlideShowView.GotoSlide方法来执行此操作。但是，由于您的问题没有尝试，并且此网站不是免费的编码服务；请在上面有一个能负担得起的代码块，然后要求缺陷或改进。

Answer 2

您需要添加 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

Answer 3

我实际上设法在没有任何宏的情况下实现了这一目标！在幻灯片放映设置中，只需将演示文稿设置为信息亭模式，然后仅选择第一张幻灯片作为要在幻灯片放映中显示的幻灯片。然后为所有幻灯片设置一个计时器，以便在您喜欢的时间后自动转到下一张幻灯片（有一个按钮可将设置应用于所有幻灯片）。下一张幻灯片将始终是第一张，因为它是您选择的唯一幻灯片。因此，无论您浏览演示文稿中的链接的幻灯片是什么，设置完之后，它始终会回到开头。

Microsoft PowerPoint宏可自动重新启动演示文稿

3 个答案: