思敏

最近一段时间在建设毕博(BB)在线教学平台课程项目，其中有一项是上传教学资源，为了使PPT的表达方式更交互，使用了学校推荐的ispring软件，虽然过程很简单但也碰到了一些小问题。

1. 软件的下载和安装：BB平台中提供了ispring的免费试用版，但出于惯性，选择了第一个文件进行解压和安装，之后发现不能用，有问题。原因是第一个文件夹是针对32位电脑的，但自己使用的电脑是64位，所以果断卸载重新安装64位的安装包。

2. 使用ispring将PPT制作成视频：根据ispring的使用说明，ispring安装好后PPT中会自动出现ispring的按钮，只需打开需要转换的PPT点击ispring的publish按钮就可将PPT转成swf格式的视频文件。但转完之后发现很多内容缺失，之后查看才发现所有的动画内容都自动消失，也就是说利用ispring转含有动画的PPT会出现内容丢失的情况。如果想将PPT完成转成视频文件，就必须删除PPT中的动画。

3.PPT中动画的批量删除：以往删除动画都是打开PPT菜单栏中的动画窗格，整体删除一页中的所有动画。但由于个人PPT中动画比较多，挨页删除所有动画工作量还是比较大，因此上网百度搜索如何一次性删除一个PPT中的所有动画，不愧是万能的度娘，确实找到了答案，但需要用到VBA编程。代码如下：

Sub removeALL()
Dim I As Integer: Dim J As Integer
Dim oActivePres As Object
Set oActivePres = ActivePresentation
With oActivePres
For I = 1 To .Slides.Count
If Val(Application.Version) < 10 Then
For J = 1 To .Slides(I).Shapes.Count
.Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
Next J
Else
For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1
.Slides(I).TimeLine.MainSequence(J).Delete
Next J
End If
Next I
End With
Set oActivePres = Nothing
End Sub

但问题又来了，如何在PPT实现代码输入，通过百度基本是在开发工具-宏中输入代码。一般来说office 2013开发工具没有在菜单栏中展示，如果需要使用，需要在选项-自定义功能区（右部分内容）-将开放工具前的框选上才会在菜单栏中显示开发工具的菜单。

4.PPT中VBA代码的使用：在开发工具下选上宏-在宏名部分随意输入一个名称-如aa-创建-将以上代码拷入，关闭代码窗口，再点击开发工具的宏-选中remove all宏，运行，就可删除PPT中的所有动画，然后就已经利用ispring将PPT的所有内容转换成视频文件。

5.不想再PPT放映时展示动画：　把PPT设为“播放时不带动画”就可以达到同样效果。但此效果仅对播放有效果，在ispring制作视频时不能识别，就是说还是会将所有动画涉及的内容丢失，也就是说如果需要利用ispring将含有动画的PPT完整的转成视频，必须手动或利用以上代码对动画部分进行删除。

心得和感想：许久没有学习新的内容，不知道就百度还确实很管用，能帮助解决很多重复工作量的问题。真所谓活到老，学到老 ：），从网络上免费学习，个人也该多实时总结为网友们解决问题提供基础资料。

附：以上代码来源于http://blog.sina.com.cn/s/blog_4b48558e0102w5lu.html。