一次性删除PPT中所有动画效果教程
在PPT中添加插入了很多动画效果,想要一个一个删除未免太过麻烦了,我们在这里使用一些代码技巧来批量删除PPT中所有动画,不懂的朋友们一起来学学。
通过PPT软件中的来解决了,几乎搜遍了所有的网站,最后终于找到了答案,将代码给各位分享。
代码如下:
Sub removeALL()
Dim I As Integer: Dim J As Integer
Dim oActivePres As Object
Set oActivePres = ActivePresentation
With oActivePres
For I = 1 To t
If Val(ion) < 10 Then
For J = 1 To es(I)t
es(I)es(J)ate = msoFalse
Next J
Else
For J = es(I)t To 1 Step -1
es(I)Sequence(J)te
Next J
End If
Next I
End With
Set oActivePres = Nothing
End Sub
另附方法二:
在PPT放映设置时把PPT设为“播放时不带动画”就可以达到同样效果。
-
在Excel单元格中怎么画表格
在Excel单元格中画表格在一个单元格区域中显示双色渐变或三色渐变,颜色的底纹表示单元格中的值,并且渐变颜色能够智能地随数据值的大小而改变。新版Excel带来的全新的“色阶”条件格式。1.选中需要分析的数据,如“A3:C8”单元格区域。2.在Excel“功能区”的“开始...
-
[经典]PPT模板14篇
PPT模板篇1这次ppt大赛终于落下帷幕,活动前期准备,宣传,搜集作品,初步评选,各学院科协2次评选,网络投票,决赛及颁奖晚会共计时间一个多月。这期间也是忙碌了许多,夹杂着许多其他的事情,工作的,个人的;收获了许多,组织策划,安排分工,寻找媒体等方面;感触也是很多很多。先来分布...
-
怎么去掉Word2010文档页眉上的横线
最近,在使用Word2010编辑文档时发现文档的`上方总是出现一条横线,打印时该横线也被打印出来,很是恼人。不过,经过本人不断的摸索,发现只需以下三步即可去掉文档上的横线:1、打开文档后,在“插入”中打开“页眉”,选第一项“空白”项,即插入空白页眉。2、在“开始”中的...
-
体育部部长ppt竞选稿汇编10篇
体育部部长ppt竞选稿篇1尊敬的各位老师,亲爱的同学们:大家中午好!我是来自电气自动化zg0914班的罗xx。首先,十分荣幸地加入体育部,成为其中一员,与大家快乐学习工作近一年,并感谢学校给我提供了这次竞选的机会,让我很高兴站在这个讲台上参加学校学生会体育部副部长的...