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

Question

使用"开始:使用上一个"设置的PowerPoint入口动画在新幻灯片前进时启动.但是,如果以相同方式设置退出动画,则不会以幻灯片结束序列开头.相反,需要使用"开始:单击"触发器,在退出动画结束后,您仍需要一次额外的单击才能进入下一张幻灯片.

对此的解决方法很明显:创建一个重复的幻灯片,让原始幻灯片中的结束动画成为复制幻灯片上的起始动画,然后让它们跟随您想要的任何内容,或者创建一个仅包含结束动画的过渡幻灯片并设置"更改高级幻灯片 - >自动后 - > [动画完成所需的时间]".

这些变通方法将使其在视觉上适合您的受众.但是,它会对您可能需要相应调整的幻灯片数量和/或重复的内容更改产生影响.如果您是唯一一个创建和使用您的演示文稿的人,这可能就好了.但是,如果您正在与另外三个人以协作模式创建演示文稿,并且甚至不知道最后谁将成为演示者,那么您可以搞砸了.

让我们具体一点:我的大多数幻灯片在入口动画中有0.2秒飞行,应用于来自右,底或左的内容块.前进到下一张幻灯片,我希望他们在另一个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

您可以使用类模块拦截 powerpoint 中的事件

课堂模块

在 VBA Explorer 的左侧组合（对象）中，您可以看到 ppt，右侧可以看到您的事件

Private WithEvents ppt As PowerPoint.Application

在通用模块中使用

set x= new class1

现在您可以使用所有演示事件。

[]的