文章/答案/技术大牛

发布

社区首页 >问答首页 >如何使用VBA添加PPT中下一张幻灯片之前的延迟

问如何使用VBA添加PPT中下一张幻灯片之前的延迟
EN

Stack Overflow用户

提问于 2017-04-30 16:01:00

回答 1查看 3.4K关注 0票数 3

幻灯片秀必须“在Kiosk上浏览”。我不想让用户选择进入下一个幻灯片，按下一个键或诸如此类的东西。

这是个测验游戏。通过按下正确的选项，以下代码将激活：

Sub CorrectAnswer()
Correct.Caption = (Correct.Caption) + 1
Percentage.Caption = (Percentage.Caption) + 5
MsgBox "That was the correct answer!", vbInformation + vbApplicationModal, "FOLK Quiz"
ActivePresentation.SlideShowWindow.View.Next
End Sub

用户按下这四个选项中的任何一个。每个盒子都有扳机。当触发器被激活时，一个盒子变成绿色，剩下的变成红色。我用动画做了这件事。

然后我想看动画后的下一张幻灯片.但这怎么可能？在VBA中的下一张幻灯片中是否有添加延迟的方法？

vba

powerpoint

wait

回答 1

Stack Overflow用户

回答已采纳

发布于 2017-04-30 17:36:51

在进入下一张幻灯片之前，您需要添加一些等待时间。利用Application.Wait进行定位是可行的。然后，您的代码将如下所示：

Sub CorrectAnswer()

  Correct.Caption = (Correct.Caption) + 1

  Percentage.Caption = (Percentage.Caption) + 5

  MsgBox "That was the correct answer!", vbInformation + _
                                         vbApplicationModal, "FOLK Quiz"
  lag = 3 
  start = Timer

  While Timer < Start + lag
        DoEvents
  Wend


  'Application.Wait(Now + TimeValue("0:00:03")) 'This adds 3 sec delay in ms VBA

  ActivePresentation.SlideShowWindow.View.Next

End Sub

票数 2

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/43708372

复制

相似问题

问如何使用VBA添加PPT中下一张幻灯片之前的延迟
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何使用VBA添加PPT中下一张幻灯片之前的延迟EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何使用VBA添加PPT中下一张幻灯片之前的延迟
EN