如何将此 VBA 应用于 PowerPoint 中的多张幻灯片？

Question

此代码非常适合自动将查看器从幻灯片 3 返回到 'previous slide viewed' 但它似乎只适用于一张幻灯片。例如，我想将它应用于索引中每张奇数编号的幻灯片（即 3、5、7、9、11 等），但随后它停止工作...

Sub OnSlideShowPageChange()
With ActivePresentation.SlideShowSettings
    .LoopUntilStopped = msoCTrue
    .AdvanceMode = ppSlideShowUseSlideTimings
    .ShowType = ppShowTypeWindow
    .Run
   End With
   
    Dim i As Integer
    i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
    If Not i = 3 Then Exit Sub
    With SlideShowWindows(1).View

     .GotoSlide (.LastSlideViewed.SlideIndex), msoFalse
    End With

End Sub

如有任何帮助，我们将不胜感激！

Answer 1

所以我已经 vba 好几年没写代码了，但如果我正确理解你的代码片段，例如阻止演示文稿从第 2 页前进到第 3 页（通过将演示文稿发送到上一页）

如果您现在想将此应用于每个奇数页，您可以将第 11 行重写为：

If Not i Mod 2 > 0 Then Exit Sub

对我有用。如果我对任务的理解有误，请指正。

如何将此 VBA 应用于 PowerPoint 中的多张幻灯片？

How to Apply this VBA to Several Slides in PowerPoint?

vba

powerpoint