如何用代码设置动画

lonewalker

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



再次感谢laose动感老师。
test2.rar (66.57 KB, 下载次数: 171)

2009-6-15 01:34 上传

点击文件名下载附件

user_ubckrued

期待解决。

sunnyyuyu

动画设置是无法通过录制宏来获得代码的，只能手工写了，你看看vba帮助就可以获得启发的

zdhhwa0315

学习了谢谢！

user_npuxdqkg

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

user_vknxazob

谢谢laose动感老师！
可是我还想知道动画类型都可以用那些数字来表示，比如“进入”类型的动画都是哪些数字呢？

cyuken

动画类型是PPT内置常量，可以用字符串表示，也可以用对应的数字常量来表示，比如，你要的玩具风车的动画名字为 msoAnimEffectPinwheel 。对应的数值常量是33。可以自己在文件中查找啊。

user_iksjw

ppt也讲究哦哦

user_qzaye

好的，我自己查找吧。再次谢谢laose动感老师及各位朋友的关注。

user_gwvey

谢谢分享，收藏备用！