批量删除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制作中希望添加点击按钮的动画效果，以增强演示的互动性和趣味性,今天，我们就来详细讲解如何在PPT中轻松实现这一效果，让你的演示更加生动吸引人2026-02-13- 制作ppt通常需要经过下载安装软件、梳理文字大纲、收集素材、统一风格、编辑单页幻灯片等步骤，详细制作思路如下2026-02-13
- ppt太大怎么压缩变小？平时办公经常要做各种PPT文档，内容篇幅长的话整个PPT文件就很占内存，多个文件积累电脑内存吃不消，下面我们就来看看详细压缩教程2025-05-08
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
最新评论