• 时事博文
  • 文化时尚
  • 潮流娱乐
  • 生活常识
  • 健康生活
  • 旅游攻略
  • 体育风云
  • 财经博文
  • 汽车频道
  • 科技
  • 游戏
  • 女人
  • 互联网
  • 军事博览
  • 个性推荐
  • 当前位置: 精彩博文网 > 潮流娱乐 > 正文

    怎样一次性删除PPT中所有动画效果 PPT删除所有动画

    时间:2018-08-15 16:43:30 来源:精彩博文网 本文已影响 精彩博文网手机站

    通过PPT软件中的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设为“播放时不带动画”就可以达到同样效果。

    • 时事博文
    • 文化时尚
    • 潮流娱乐
    • 科技
    • 游戏
    • 女人
    • 个性推荐