一个按键播放动画，一个按键停止动画，怎么做？

user_cqclybxh

在PPT中，利用VBA添加了旋转动画。怎样添加两个按钮：一个按键播放动画，一个按键停止动画呢？

第一种方法3DVBA(1).rar (33.55 KB, 下载次数: 261)

2012-4-8 19:11 上传

点击文件名下载附件

user_ceusa

求高手出现啊

user_cfvka

用触发器在PPt控制音(视）频的播放
视频的方法也不过是大同小异，希望对你有帮助。

用触发器在PowerPoint控制音频的播放.rar (289.31 KB, 下载次数: 50)

2016-4-11 07:54 上传

点击文件名下载附件

user_vnune

控制视频或者声音的简单，不过不是我想要的结果，而且也没有参考性。不过还是谢谢你

user_wteicbqv

高手路过，

zhouknight

学习中，先收藏了。

trulytry

我之前有發過不知你是否是要這個效果
我在国外的网案找到了可以暂停&继续自订动画的语法VBA
很简单但效果却很好
在PPT工具选单中打开宏 打开VB编辑器
输入以下VB码
Sub pauseshow()
  ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub
Sub runshow()
  ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub
然后按储存就可以了
然后在已经设了自订动画的投影片上
画两个图案当作按钮
在A图案鼠标右键叫出动作设定
在按一下鼠标的项目下选执行宏的pausehow 按确定
在图形B选 RUNSHOW按确定
播放投影片后就可以用AB图形来控制动画的暂停或继续
不过这个语法是针对该投影片全部的动作
暫停繼續動畫.rar (9.03 KB, 下载次数: 15)

2016-4-11 07:54 上传

点击文件名下载附件

user_nhcyr

我在国外的网站找到了可以暂停&继续自订动画的VBA语法
很简单但效果却很好
在PPT工具选单中打开宏 打开VB编辑器
输入以下VB码
Sub pauseshow()
  ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub
Sub runshow()
  ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub
然后按储存就可以了
然后在已经设了自订动画的投影片上
画两个图案当作按钮
在A图案鼠标右键叫出动作设定(繁体版本的名称)
在按一下鼠标的项目下选执行宏的pausehow 按确定
在图形B选 RUNSHOW按确定
播放投影片后就可以用AB图形来控制动画的暂停或继续
不过这个语法是针对该投影片全部的动作
好像不能指定某一组动作来设定
不知有没有人可以继续改进
看能不能指定特定物件动作暂停 继续

52336317

同问啊，也有这个问题

quding

这个我也在找答案