如何用代码设置动画

yxrj 发表于: 2009-6-15 01:34 来源: 扑奔PPT网

请教：如何用代码设置图片“xuesheng”的动画为“进入”中的“玩具风车”类型？
我录了宏，可是录不出设置动画的代码。

再次感谢laose动感老师。

[ 本帖最后由 yxrj 于 2009-6-18 22:16 编辑 ]

如何用代码设置动画 (66.6 KB, 下载次数: 22)

大家对如何用代码设置动画的评论

yxrj 发表于 2009-6-15 16:08:48: 期待解决。
laose 发表于 2009-6-15 19:04:39: 动画设置是无法通过录制宏来获得代码的，只能手工写了，你看看vba帮助就可以获得启发的
hzq56 发表于 2009-6-16 11:50:53: 学习了谢谢！
laose 发表于 2009-6-16 19:35:36: Sub 用代码设置图片的动画()
'图片的名称是"xuesheng"
Dim sld As Slide
Dim shp As Shape
Dim eff As Effect
Set sld = ActiveWindow.Selection.SlideRange(1)
Set shp = sld.Shapes("xuesheng")
Set eff = sld.TimeLine.MainSequence.AddEffect(shp, 33, , msoAnimTriggerOnPageClick)
With eff.Timing
.Duration = 5
End With
End Sub
yxrj 发表于 2009-6-17 23:01:05: 谢谢laose动感老师！
可是我还想知道动画类型都可以用那些数字来表示，比如“进入”类型的动画都是哪些数字呢？
laose 发表于 2009-6-18 11:33:10: 动画类型是PPT内置常量，可以用字符串表示，也可以用对应的数字常量来表示，比如，你要的玩具风车的动画名字为 msoAnimEffectPinwheel 。对应的数值常量是33。可以自己在文件中查找啊。
wling 发表于 2009-6-18 19:40:14: ppt也讲究哦哦
yxrj 发表于 2009-6-18 22:07:03: 好的，我自己查找吧。再次谢谢laose动感老师及各位朋友的关注。
tangqingfu 发表于 2011-4-12 20:53:41: 谢谢分享，收藏备用！