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

2015-05-08 11:38:50 -0500
在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
«Newer      Older»
Comment:
Name:

Back to home

Subscribe | Register | Login | 中文 | N