此代碼非常適用于自動將查看器從幻燈片 3 回傳到“查看上一張幻燈片”，但它似乎只適用于一張幻燈片。例如，我想將它應用于索引中的每張奇數幻燈片（即 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
任何幫助將不勝感激！
uj5u.com熱心網友回復：
所以我幾年沒有撰寫 vba 代碼，但是如果我正確理解了您的代碼段，它會阻止演示文稿從第 2 頁前進到第 3 頁（通過將演示文稿發送到上一頁）
如果您現在想將此應用于每個奇數頁，您可以將第 11 行重寫為：
If Not i Mod 2 > 0 Then Exit Sub
這個對我有用。如果我理解任務錯誤，請糾正我。
uj5u.com熱心網友回復：
這是此問題的一些替代解決方案的鏈接，以及允許多功能性輕松將幻燈片編號添加到每張幻燈片的案例中的鏈接，該幻燈片應將查看器回傳到“LastSlideViewed”。
http://www.vbaexpress.com/forum/showthread.php?69713-How-to-Apply-this-VBA-to-more-than-just-Slide-3
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/440548.html
上一篇：如何計算檔案夾中的檔案