批量删除Powerpoint文件中生成的动画效果的方法
发布时间：2012-05-30 11:37:28 作者：佚名 
我要评论
我要评论批量删FLASH比较难的.下面介绍几个好的方法
Powerpoint是微软OFFICE系列办公应用软件的重要组成部份之一，也是大家在日常的办公中经常用到的一款软件。由于其集成了一些动画的功能，比较适合课件等的制作，因此受到广泛的欢迎。不过，对于Powerpoint来说，如何批量删除其生成的ppt文件中的动画效果，是一件较为困难的事情。经过试验找到了三种方法，希望能对大家有所帮助：
一，Powerpoint放映设置
打开Powerpoint，在其“放映设置”中，选中设为“播放时不带动画”。这样就可以达到同样的效果。
二，Powerpoint自定义设置
打开Powerpoint，在“自定义动画”对话框中，选择要删除的动画序号（注：可以按ctrl键选择多个序号），然后点击“删除”。
三，利用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
一，Powerpoint放映设置
打开Powerpoint，在其“放映设置”中，选中设为“播放时不带动画”。这样就可以达到同样的效果。
二，Powerpoint自定义设置
打开Powerpoint，在“自定义动画”对话框中，选择要删除的动画序号（注：可以按ctrl键选择多个序号），然后点击“删除”。
三，利用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图片怎样镜像翻转? PPT演示文稿将图片进行镜像翻转的方法
ppt中导入的图片想要进行镜像翻转，该怎么操作呢？我们可以使用旋转工具实现，下面我们就来看看详细的教程2024-09-12- 日常工作制作ppt时，经常需要插入多张图片，很多朋友都是一张一张插入，甚是繁琐，下面小编教大家在ppt中一次性插入多张图片2024-09-04
怎么将ppt中所有的文字设置为宋体? ppt一键替换字体的技巧
PPT内容制作完成后，发现字体不合适需要更换，这时利用“替换字体”功能可高效地进行批量更换操作，详细请看下文介绍2024-07-31ppt等比例缩放图片按什么键? PPT进行中心等比缩放的方法
ppt插入的图片，想要进行缩放，该怎么操作呢？今天我们主要介绍中心等比缩放图片的技巧，详细请看下文介绍2024-07-31PPT幻灯片怎么插入word表格? PPT文稿导入word表格的教程
ppt幻灯片中想要插入word表格，该怎么将word文件导入到ppt文稿呢？下面我们就来看看详细的教程2024-07-24ppt打印预设怎么用? ppt使用最近使用过的打印设置的开启方法
经常打印ppt文件，上一次打印的时候进行了打印设置，这次想直接使用，该怎么操作呢？下面我们就来看看详细的操作方法2024-07-17ppt怎么更改文本框出现的顺序? PPT设置文本出场顺序动画的技巧
在PPT中，我们可以使用多种方法来设置文本框的先后出现顺序，下面我们就来分享最简单的方法，详细请看下文介绍2024-07-17- ppt中想要给图形填充颜色，我们可以使用取色器的吸管吸取颜色，并填充到图形中，该怎么操作呢？下面我们就来看看详细的教程2024-07-17
PPT如何给切换效果添加照相机声音 PPT幻灯片给切换效果添加照相机声音
PPT如何给切换效果添加照相机声音？其实在PPT程序中，我们在切换工具的子工具栏中选择好切换效果之后，找到“声音”工具，直接点击打开该工具，然后在下拉列表中就能选择自2024-07-16
PPT幻灯片如何设置校对语言 PPT幻灯片设置校对语言的方法
PPT幻灯片如何设置校对语言？其实我们只需要点击打开PPT中的“审阅”工具，然后在其子工具栏中点击打开“语言”工具，接着在下拉列表中，我们找到并打开“设置校对语言”选2024-07-16
最新评论