再现PPT2010中的貌似被去掉的动画效果

.

      用了PowerPoint 2010，大家都惊讶地发现，2003、2007中的层叠、伸展等一些动画效果不见了。但用2003或2007添加这些效果再在2010中打开时，这些效果仍然显示。也就是说，2010并没有真正去掉这些动画。那么如何在2010中使用这些动画呢，一种方法是将这些动画集中起来，建立“动画库”，需要时用格式刷一刷；另一种方法是用VBA添加这些动画。
      
      具体代码、操作步骤及相关问题：

      1.按ALT+F11，打开VBA编辑器，插入“模块”；
      2.复制下列代码：
   Sub Add_Effect()
       Set shp = ActiveWindow.Selection.ShapeRange(1)
        For i = 0 To 1
            With ActivePresentation.Slides(1).TimeLine _
               .MainSequence.AddEffect(Shape:=shp, effectid:=17)
               .Exit = i
          End With
        Next
   End Sub
      3.选中要添加的图片或形状，按ALT+F8 ，运行 Add_Effect
      4.关键代码：注意数字“17”，是“伸展”动画的ID。进入和相对应的退出效果为一个ID，只是在添加
退出效果时，exit的属性为ture。上述代码同时添加了进入效果和相对应的退出效果，循环中的“0”表
false，“1”表true。
      5.如何知道动画ID？运行本实例所附的show_effect代码，便可知道添加动画效果的ID。

       最终效果：

.