在轉到下一張幻燈片之前設置幻燈片之間的特定轉換的宏

我正在幻燈片放映中，所有幻燈片都設置了「從左邊推」轉換。我將在每張幻燈片中插入一個按鈕，以返回到上一張幻燈片，並且當按下按鈕時，我想將轉換切換到「從右向下推」，轉到上一張幻燈片，然後設置轉換到「從左側推」。我寫了這一點，但它不工作：在轉到下一張幻燈片之前設置幻燈片之間的特定轉換的宏

Sub previousslide() 
With ActivePresentation.SlideShowWindow.View 
    .Slide.SlideShowTransition.EntryEffect = ppEffectPushRight 
    .GotoSlide (ActivePresentation.SlideShowWindow.View.Slide.SlideIndex - 1) 
    .Slide.SlideShowTransition.EntryEffect = ppEffectPushLeft 
End Sub

感謝

來源

2016-12-16 Stefano Checcarelli

你缺少一個「端用」完成End With - 隨塊。另外，我會跳過引用ActivePresentation對象，因爲它只有在有活動的演示文稿時纔會起作用。如果在運行.PPSX/.PPSM文件時運行上述代碼，那麼代碼將失敗。下面的代碼刪除了引用。

Sub PreviousSlide() 
With SlideShowWindows(1).View 
    .Slide.SlideShowTransition.EntryEffect = ppEffectPushRight 
    .GotoSlide (SlideShowWindows(1).View.Slide.SlideIndex - 1) 
    .Slide.SlideShowTransition.EntryEffect = ppEffectPushLeft 
End With 
End Sub

來源

2016-12-16 15:43:32

非常感謝提示，代碼運行雖然它有點奇怪。第一個EntryEffect設置了「PushRight」轉換，但是「預覽」在屏幕上，所以我看到：Slide B < - Slide B.然後幻燈片隨着新的轉換而改變，所以我看到：Slide A < - Slide B.在最後的指令中，我得到了新的轉換「PushLeft」的預覽，所以我看到：Slide A - > Slide A. –

在轉到下一張幻燈片之前設置幻燈片之間的特定轉換的宏

回答

相關問題