☰

退出动画结束后如何自动前进 PowerPoint 幻灯片？

tag-icon • tag-icon microsoft-powerpoint vba microsoft-powerpoint-2003
退出动画结束后如何自动前进 PowerPoint 幻灯片？

PowerPoint 的进入动画设置为“开始：从上一张开始”，在新幻灯片前进时立即开始。但是，如果您以同样的方式设置退出动画，它不会从幻灯片结束序列开始。相反，需要使用“开始：单击时”触发器，退出动画结束后，你仍然需要额外点击一次才能前进到下一张幻灯片。

解决方法对此的操作显而易见：创建一个重复的幻灯片，将原始幻灯片的结束动画作为重复幻灯片上的起始动画，并让它们跟随您想要的任何内容，或者仅使用这些结束动画创建一个过渡幻灯片并设置“更改前进幻灯片 -> 之后自动 -> [动画完成所需的时间]”。

这些解决方法将使它在视觉上适合您的观众。但是，它会影响幻灯片编号，您可能需要相应地调整和/或重复内容更改。如果您是唯一创建和使用演示文稿的人，这可能没问题。但如果您与其他三个人以协作模式创建演示文稿，甚至不知道谁将成为最后的演示者，您可能会把事情搞砸。

具体来说：我的大多数幻灯片都对来自右侧、底部或左侧的内容块应用了 0.2 秒的飞入动画。前进到下一张幻灯片时，我希望它们在另一个 0.2 秒的退出动画中飞出，然后是新幻灯片 0.2 秒的新块飞入动画。交换区块应该在前进到下一张幻灯片时触发，就像通常一样。
如上所述，如果不在幻灯片之间额外单击一次，我就无法实现这一点。

我写了一个VBA 脚本它应该与退出动画一起启动，并在退出动画结束后 0.3 秒自动前进一张幻灯片。这样，我应该摆脱现在需要的那些额外点击。

Sub nextslide()
iTime = 0.3
Start = Timer
While Timer < Start + iTime
DoEvents
Wend
With SlideShowWindows(1).View
    .GotoSlide (ActivePresentation.SlideShowWindow.View.Slide.SlideIndex + 1)
End With
End Sub

绑定到框、按钮或其他对象上时，它工作得很好。但我无法让它在单击时运行（幻灯片上的任意位置）这样它就可以与退出动画 onclick 触发器一起启动。在整个幻灯片上创建一个大的透明矩形并将宏绑定在其上也无济于事。通过单击它，您只能运行宏，而不会触发退出动画。
无论如何，我不想将宏绑定到幻灯片本身以外的任何其他解决方法对象。

有谁知道如何在幻灯片 onclick 事件上触发 PowerPoint VBA 脚本？
谁知道一个秘密设置是否会使退出动画按预期工作，即在退出幻灯片之前转换到下一张幻灯片时进行动画处理？
有人知道如何打败这条龙吗？

谢谢你！

答案1

回复晚了，但这是另一种可能的解决方法：

转到：幻灯片放映，选中“使用排练时间”，然后单击“排练时间”，然后在排练期间，在第一张幻灯片结束后，单击您希望第二张幻灯片出现的时间，然后保存对排练时间的更改。

（其他相关评论这里）

相关内容