PPT2010设置每张幻灯片随机切换效果的方法

在ppt编辑界面按快捷键ALT+F11，进入VBA界面，新建一个宏，输入一下代码。按运行。就有效果了

Sub RandEffect()
For i = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(i).SlideShowTransition
.AdvanceOnClick = msoTrue '单击鼠标后切换
'.AdvanceOnTime = msoTrue '也可以选择定时切换
'.AdvanceTime = 5 '定时时长为5秒
.EntryEffect = ppEffectRandom
.Duration = 1.5 '切换时长1.5秒
End With
Next
End Sub