找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登录

新浪微博

查看: 637|回复: 0

[PPT 教程] [TSNU.CN]怎样一次性删除PPT中所有动画效果

[复制链接]
  • TA的每日心情
    开心
    2015-10-20 09:16
  • 签到天数: 114 天

    [LV.6]常住居民II

    2306

    主题

    2523

    帖子

    1万

    积分

    管理员

    Rank: 16Rank: 16Rank: 16Rank: 16

    积分
    11959

    最佳新人活跃会员

    发表于 2015-1-29 23:56:20 | 显示全部楼层 |阅读模式
    天水大学生网-提供】  在PPT中添加插入了很多动画效果,想要一个一个删除未免太过麻烦了,我们在这里使用一些代码技巧来批量删除PPT中所有动画,不懂的朋友们一起来学学。, U$ a3 w: p& m! k& A- J& V/ J* a
      通过PPT软件中的VBA来解决了,几乎搜遍了所有的网站,最后终于找到了答案,将代码给各位分享。* K! ?' x- t2 k* M% D& c  I
      代码如下:4 u3 B7 B, W) E3 V# T( _, W
      Sub removeALL()# q2 w  g% F8 E( D
      Dim I As Integer: Dim J As Integer
    + k$ L1 h! ]4 _4 m( z7 I. e  Dim oActivePres As Object
    6 x! o$ W6 {' P5 j  Set oActivePres = ActivePresentation
    0 t! U$ |! j' J+ _' A1 s6 w2 w  With oActivePres; K) j  B4 U% ]
      For I = 1 To .Slides.Count
    & w/ c7 W) j. K8 p  If Val(Application.Version) < 10 Then1 t6 s3 D- l/ [( o+ c9 k
      For J = 1 To .Slides(I).Shapes.Count% Z+ h( F, W' Y  r
      .Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
    $ S, O, y: {5 L/ ~+ v  Next J+ `0 G, a+ U& E) D+ Y1 D  N
      Else
    ) I: _; y! h0 M5 |1 Y8 X  For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1: n! j9 {/ d4 C. W% V. O) X" m
      .Slides(I).TimeLine.MainSequence(J).Delete' |5 C: o. v6 B0 h" M
      Next J$ r0 x6 _% i0 `, F# W
      End If
    0 _0 U, G: C( M" q  Next I
    9 u2 e6 F* g4 d2 B/ o% |  End With  ]6 W* E; x) G- N5 u# o
      Set oActivePres = Nothing
    2 e$ x) m; D8 X  End Sub
    & G( B; ?% u6 k5 G# V  E  另附方法二:
    / r+ N4 U" s$ D- g  在PPT放映设置时把PPT设为“播放时不带动画”就可以达到同样效果。) F; C& f2 l. o+ R3 m
    转载请注明来自【天水大学生网http://www.tsnu.cn】
    爱生活,爱上天水大学生网http://www.tsnu.cn
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

     
     
    在线客服
    点击这里给我发消息
    师院校友联谊:
    天水师院校友联谊
    兼职①群:
    天水大学生网兼职①群
    工作时间:
    8:00-18:00
     
    发布主题 快速回复 返回列表 联系我们 官方QQ群
    返回列表 快速回复 返回顶部