How to delete all the animations in a presentation
2016-02-23 16:47
666 查看
You can turn off the animations by going to Setup Slide Show and underShow Options tick the Show without animation option and clickOK. Now run the show and it will display without the animations.
If you really want to delete all the animations in a single sweep then you will need to run this macro.
Sub StripAllBuilds()
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
' Older versions of PowerPoint 97/2000
' In each slide set the animation property
' of the Shape object to FALSE
For J = 1 To .Slides(I).Shapes.Count
.Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
Next J
Else
' New versions support the Timeline object
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
If you really want to delete all the animations in a single sweep then you will need to run this macro.
Sub StripAllBuilds()
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
' Older versions of PowerPoint 97/2000
' In each slide set the animation property
' of the Shape object to FALSE
For J = 1 To .Slides(I).Shapes.Count
.Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
Next J
Else
' New versions support the Timeline object
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
相关文章推荐
- 如何使用 Beamer 创建演示文稿
- ASP.NET中实现导出ppt文件数据的实例分享
- C#实现将PPT转换成HTML的方法
- 使用impress.js制作幻灯片
- Android开发之图形图像与动画(二)Animation实现图像的渐变/缩放/位移/旋转
- java读取word-excel-ppt文件代码
- PHP读取PPT文件的方法
- Android开发重写Animation实现下拉图片后弹射回去效果示例
- Android编程之Animation动画详解
- Android Animation实战之屏幕底部弹出PopupWindow
- java使用poi读取ppt文件和poi读取excel、word示例
- java实现PPT转PDF出现中文乱码问题的解决方法
- Python实现对PPT文件进行截图操作的方法
- Python输出PowerPoint(ppt)文件中全部文字信息的方法
- python实现向ppt文件里插入新幻灯片页面的方法
- Android Animation实战之一个APP的ListView的动画效果
- Transform/Transition/Animation的区别与联系