利用VBA控制动画停止的方法：感谢数学工具

一位老师问如何让陀螺旋的动画停止下来，在请教“数学工具”，他给出来了解决办法：

1，插入两个按钮（可以是图像也可以绘制）

2，开发工具-visual basic或宏，创建两个宏：Pause()和Running()

SubPause()

  ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused

End Sub

SubRunning()

  ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning

EndSub

3、选择按钮——插入宏——指定运行相应的宏

示例PPT下载： 如何让动画停止2.ppt (138 KB, 下载次数: 1183)

2014-4-12 17:12 上传

点击文件名下载附件

（运行前先将宏的安全级别设为“低”）

另用此方法还可以制作各种随机数。在日常生活和工作中经常遇到，比如：分组、抽题、上场顺序、抽奖等等。产生随机数的传统做法有投硬币、掷骰子、转轮等。

PPT下载： 大转轮.ppt (87 KB, 下载次数: 1204)

2014-4-12 16:48 上传

点击文件名下载附件

{:soso_e179:}

没看懂！

Sub Pause()
   ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub
Sub Running()
   ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub