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

Question

设置“Start：With Previous”的PowerPoint入口动画从一张新幻灯片前进时开始。但是，如果以相同方式设置退出动画，则不会以幻灯片结束顺序开始。相反，“开始：点击”触发需要使用和你退出动画结束以后，你仍然需要一个额外的点击只前进到下一个幻灯片。

解决方法 s到这是显而易见的：创建一个重复的幻灯片，从原来的幻灯片让你结束动画上重复幻灯片是你的出发动画，让他们遵循任何你想要的或创建与过渡幻灯片仅结束动画，并设置“更改高级幻灯片 - >自动后 - > [您的动画完成所需的时间]”。

这些变通办法使它成为你的听众工作，在视觉上。但是，它会影响您可能需要相应调整和/或重复内容更改的幻灯片编号。如果你是唯一一个创建和使用你的演示文稿，这可能会很好。但是，如果您与其他三个人以协作模式创建演示文稿，甚至不知道最终谁将成为主持人，那么您可能会搞砸了。

让我们具体：我的大部分幻灯片在应用到右，上下或左右未来的内容块入口动画0.2S飞。前进到下一张幻灯片我希望他们能够在另一个0.2秒的出口动画中飞出，然后是新的幻灯片0.2s飞出新块的入口动画。通常，在前进到下一张幻灯片时，应触发块的交换。
如前所述，如果在幻灯片之间没有额外的点击，我无法做到这一点。

我写了一个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脚本？
任何人都知道一个秘密设置，这将使出口动画作品如预期，即退出动画幻灯片权之前，同时过渡到下一个？
任何人都知道如何击败这条龙？

谢谢！

Answer 1

可以使用类模块

在类模块

在VBA资源管理器中左侧的组合（对象），你可以看到PPT和右的事件拦截PowerPoint事件

Private WithEvents ppt As PowerPoint.Application 

在常见模块使用

set x= new class1 

现在您可以使用所有的事件pres entation。

的[]

Answer 2

你也可以设置转换（标签） - >高级幻灯片00:00:00秒后。您需要将SLIDESHOW（选项卡）设置为使用（排练）计时。这将在最后一次动画操作后自动推进幻灯片。你当然可以等待几秒钟，但听起来你只是想推进幻灯片。