ppt2010怎样添加层叠动画效果
时间:
宇能938由 分享
ppt2010怎样添加层叠动画效果
用了PowerPoint 2010,大家都惊讶地发现,2003、2007中的层叠、伸展等一些动画效果不见了。但用2003或2007添加这些效果再在2010中打开时,这些效果仍然显示。也就是说,2010并没有真正去掉这些动画。那么要怎样显示出来呢?下面学习啦给大家分享吧。
ppt2010层叠效果的制作方法
具体代码、操作步骤及相关问题:
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。
猜你感兴趣: