Question

Ppt vba 如何设置，每个slide的放映时间，比如放映后，每格5分钟自动切换slides1到

Ppt vba 如何设置，每个slide的放映时间，比如放映后，每格5分钟自动切换slides1到slides2

手动我会，可是怎么用vba实现，录制是没用的，录不下来这种操作。
谢谢

Answer 1

建立一个类模块添加以下代码（将类重命名为EventClassModule）：

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Public WithEvents App As Application
Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)
    Dim i As Integer
    For i = 1 To ActivePresentation.Slides.Count
        Sleep (5 * 60 * 1000)
        SlideShowWindows(1).View.GotoSlide i
    Next
End Sub

在其它模块添加以下代码：

Dim X As New EventClassModule
Sub InitializeApp()
    Set X.App = Application
End Sub

运行 InitializeApp() 并开始放映幻灯片即可，注意宏安全性放低。