在转到下一张幻灯片之前设置幻灯片之间的特定转换的宏

我正在幻灯片放映中，所有幻灯片都设置了“从左边推”转换。我将在每张幻灯片中插入一个按钮，以返回到上一张幻灯片，并且当按下按钮时，我想将转换切换到“从右向下推”，转到上一张幻灯片，然后设置转换到“从左侧推”。我写了这一点，但它不工作：在转到下一张幻灯片之前设置幻灯片之间的特定转换的宏

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. –

在转到下一张幻灯片之前设置幻灯片之间的特定转换的宏

回答

相关问题