显示PowerPoint 2010隐藏的动画.docxVIP

显示PowerPoint 2010隐藏的动画 用了PowerPoint 2010，大家都惊讶地发现，2003、2007中的层叠、伸展等一些动画效果不见了。但用2003或2007添加这些效果再在2010中打开时，这些效果仍然显示。也就是说，2010并没有真正去掉这些动画。那么如何在2010中使用这些动画呢？对于会使用VBA的朋友，可参考如下代码： Sub Add_Effect() Set shp = ActiveWindow.Selection.ShapeRange(1) For i = 0 To 1 Set sqn = ActivePresentation.Slides(1).TimeLine.MainSequence sqn.AddEffect(Shape:=shp, effectid:=17).Exit = i Next End Sub 运行此宏代码之前，PPT的第一张幻灯皮必须有一个图片或者形状，并选中它。数字“17”是“伸展”和“层叠”动画的ID，即“伸展”和“层叠”为一个ID，只是用Exit属性来识别是进入效果还是退出效果，进入时Exit值为False，退出时Exit值为True。上述代码同时添加了进入效果和相对应的退出效果，循环中的“0”表False，“1”表True。动画效果与ID对照如下表： 动画效果 动画ID号 msoAnimEffectAppear出现 msoAnimEffectAppear1 msoAnimEffectArcUp向上弦线 msoAnimEffectArcUp47 msoAnimEffectAscend上升 msoAnimEffectAscend39 msoAnimEffectBlast强调爆炸 msoAnimEffectBlast64 msoAnimEffectBlinds百叶窗 msoAnimEffectBlinds3 msoAnimEffectBoldFlash加粗闪烁 msoAnimEffectBoldFlash63 msoAnimEffectBoldReveal加粗展示 msoAnimEffectBoldReveal65 msoAnimEffectBoomerang飞旋 msoAnimEffectBoomerang25 msoAnimEffectBounce弹跳 msoAnimEffectBounce26 msoAnimEffectBox盒状 msoAnimEffectBox4 msoAnimEffectBrushOnColor着色 msoAnimEffectBrushOnColor66 msoAnimEffectBrushOnUnderline添加下划线 msoAnimEffectBrushOnUnderline67 msoAnimEffectCenterRevolve中心旋转 msoAnimEffectCenterRevolve40 msoAnimEffectChangeFillColor更改添充颜色 msoAnimEffectChangeFillColor54 msoAnimEffectChangeFont更改字体 msoAnimEffectChangeFont55 msoAnimEffectChangeFontColor更改字体颜色 msoAnimEffectChangeFontColor56 msoAnimEffectChangeFontColor更改字号 msoAnimEffectChangeFontSize57 msoAnimEffectChangeFontStyle更改字形 msoAnimEffectChangeFontStyle58 msoAnimEffectChangeLineColor更改线条颜色 msoAnimEffectChangeLineColor60 msoAnimEffectCheckerboard棋盘 msoAnimEffectCheckerboard5 msoAnimEffectCircle圆形扩展 msoAnimEffectCircle6 msoAnimEffectColorBlend混色 msoAnimEffectColorBlend68 msoAnimEffectColorReveal颜色打字机 msoAnimEffectColorReveal27 msoAnimEffectColorWave彩色波纹 msoAnimEffectColorWave69 msoAnimEffectComplementaryColor补色 msoAnimEffectComplementaryColor70 m