应用思考-教育技术论坛

标题: 利用VBA控制动画停止的方法：感谢数学工具 [打印本页]

作者: etthink 时间: 2014-4-12 16:48
标题: 利用VBA控制动画停止的方法：感谢数学工具
一位老师问如何让陀螺旋的动画停止下来，在请教“数学工具”，他给出来了解决办法：
(, 下载次数: 34)

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

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

SubPause()

ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused

End Sub

SubRunning()

ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning

EndSub

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

示例PPT下载： (, 下载次数: 332) （运行前先将宏的安全级别设为“低”）

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

PPT下载： (, 下载次数: 345)

作者: flowerrain67 时间: 2014-4-12 16:54
{:soso_e179:}

作者: 逍遥客 时间: 2014-5-6 15:53

作者: 阳瑶思儿 时间: 2014-5-31 10:33
没看懂！

作者: etthink 时间: 2024-10-1 14:21
Sub Pause()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub
Sub Running()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub

欢迎光临应用思考-教育技术论坛 (http://etthink.com/)