设为首页收藏本站|繁體中文

Excel 技巧网

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 2580|回复: 0

[PowerPoint] 如何运用VBA为所有幻灯片的标题内容添加统一的动画效果呢?

[复制链接]
发表于 2014-7-31 16:35:01 | 显示全部楼层 |阅读模式
  • 署名作者: 0Mouse
  • 版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
  • 本文来自:
  • 引用作品:
  • 适用版本: 2010 
  • 语言环境: 简体中文
  • 学习方法: 掌握Excel技巧的关键是动手操作 | 下载 ≠ 知识


  • 免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

    您需要 登录 才可以下载或查看,没有帐号?注册

    x
    Q:如何运用VBA为所有幻灯片的标题内容添加统一的动画效果呢?
    问题示例:如何为附件演示文稿中所有幻灯片的标题内容添加“从左侧飞入”的进入动画效果,并设置动画在每张幻灯片切换后即刻播放而无需单击触发呢?
    A:打开演示文稿后,按<Alt+F11>组合键,依次单击“插入”-“模块”,在显示的空白窗格内粘贴以下代码,按<F5>键运行代码,设置完毕。
    1. Sub 运用VBA为所有幻灯片的标题内容添加统一的动画效果()
    2.     Dim Sld As Slide
    3.     For Each Sld In ActivePresentation.Slides
    4.         With Sld.Shapes(1).AnimationSettings
    5.             .AdvanceMode = ppAdvanceOnTime
    6.             .AdvanceTime = 0
    7.             .EntryEffect = ppEffectFlyFromLeft
    8.         End With
    9.     Next Sld
    10. End Sub
    复制代码

    附件: 运用VBA为所有幻灯片的标题内容添加统一的动画效果.rar (75.26 KB, 下载次数: 6)
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    Archiver|手机版|Excel技巧网 ( 闽ICP备08107682号-2

    GMT+8, 2019-11-18 07:32

    Powered by Discuz! X3.4

    © 2001-2017 Comsenz Inc.

    快速回复 返回顶部 返回列表