PPT2010中如何制作翻书效果

    今年我们的专业选修课有一个是课件制作,今天自己格外的有兴趣,于是开始制作各种小图形,自己很好奇想做一个是翻书的效果,那么如何制作呢?本来很简单的事情,但是到了2010版ppt中似乎有点麻烦了。

    我们知道在word2003及word2007中动画效果存在层叠和伸展(可以自己看一下2003和2007版本的来确认),但是这两个效果在2010中是找不到的,貌似被去除了,有人问了如果我装的是2010版本,为了一个翻书效果我还得再装另一版本的office,当然我们是不喜欢这样做的,遇到问题,解决问题,我们来看看如何在2010版本PPT再现翻书效果。

    关于如何在2010版本中使用动画,一种方法就是VBA中添加这些动画。

    什么是VBA?直到90年代早期,应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VISUAL BASIC 的子集.实际上VBA是寄生于VB应用程序的版本。

    用途:由于微软Office软件的普及,人们常见的办公软件Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA使这些软件的应用更高效率,例如:通过一段VBA代码,可以实现画面的切换;可以实现复杂逻辑的统计(比如从多个表中,自动生成按合同号来跟踪生产量、入库量、销售量、库存量的统计清单)等。

    运用VBA具体如何实现翻书效果呢?

    一、1.按ALT+F11,打开VBA编辑器,插入“模块”;

PPT2010中如何制作翻书效果_第1张图片

    二、复制下面的代码

   Sub Add_Effect()
       Set shp = ActiveWindow.Selection.ShapeRange(1)  'Selection.ShapeRange(index) 返回选定对象中的单个形状,其中 index 是形状的名称或索引号
        For i = 0 To 1
            With ActivePresentation.Slides(1).TimeLine _
               .MainSequence.AddEffect(Shape:=shp, effectid:=17)
               .Exit = i
          End With
        Next
   End Sub

    三、选中要添加的图片或形状,按ALT+F8 ,运行 Add_Effect

PPT2010中如何制作翻书效果_第2张图片

    

    四、关键代码:注意数字“17”,是“伸展”动画的ID。进入和相对应的退出效果为一个ID,只是在添加退出效果时,exit的属性为ture。上述代码同时添加了进入效果和相对应的退出效果,循环中的“0”表false,“1”表true。

    当然之后添加完之后的效果是既有伸展也有层叠,这时我们就可以根据自己所需来选择自己想要的效果了,关于VBA想要进一步了解的,可以上网查阅相关的资料,这里不再赘述了,希望这些可以对你们有帮助。



你可能感兴趣的:(【发现问题解决问题】)