博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
How to delete all the animations in a presentation
阅读量:6635 次
发布时间:2019-06-25

本文共 982 字,大约阅读时间需要 3 分钟。

hot3.png

You can turn off the animations by going to Setup Slide Show and underShow Options tick the Show without animation option and clickOK. Now run the show and it will display without the animations.

If you really want to delete all the animations in a single sweep then you will need to run this macro.

Sub StripAllBuilds()

    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
                ' Older versions of PowerPoint 97/2000
                ' In each slide set the animation property
                ' of the Shape object to FALSE
                For J = 1 To .Slides(I).Shapes.Count
                    .Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
                Next J
            Else
              ' New versions support the Timeline object
                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

转载于:https://my.oschina.net/wellsoschina/blog/619392

你可能感兴趣的文章
我的友情链接
查看>>
Android开发之使用pull解析XML文件
查看>>
[CentOS7] - CentOS7 连接WIFI
查看>>
cocos2dx中.json和.plist以及.xml文件格式生成加载的不同
查看>>
Dos命令查看端口占用及关闭进程
查看>>
刀片之家礼品兑换帮助
查看>>
登陆脚本实现域用户自动创建共享盘和关联打印机
查看>>
Linq in action
查看>>
Zatree2.2安装
查看>>
blockchain.info API中文手册
查看>>
Centos 7.3搭建git服务器
查看>>
下载的实现
查看>>
LVS配置文件详解及相关技巧介绍
查看>>
Windows 8 远程桌面连接 另一个Windowd 8 提示“您的凭据不工作”
查看>>
织梦DEDECMS修改摘要、标题等字数限制
查看>>
K/3 MRP运算数据不准的原因及解决方案
查看>>
Kali Linux ***测试之拒绝服务***及防御
查看>>
我的友情链接
查看>>
宽心决
查看>>
MFC 多线程及线程同步
查看>>