lonewalker 发表于 2009-6-15 01:34:00

如何用代码设置动画

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



再次感谢laose动感老师。

user_ubckrued 发表于 2009-6-15 03:35:18

期待解决。

sunnyyuyu 发表于 2009-6-15 03:46:04

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

zdhhwa0315 发表于 2009-6-15 04:00:05

学习了谢谢！

user_npuxdqkg 发表于 2009-6-15 04:00:17

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 发表于 2009-6-15 04:23:33

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

cyuken 发表于 2009-6-15 05:30:30

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

user_iksjw 发表于 2009-6-15 06:01:21

ppt也讲究哦哦

user_qzaye 发表于 2009-6-15 06:22:11

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

user_gwvey 发表于 2009-6-15 06:22:56

谢谢分享，收藏备用！
页: [1]
查看完整版本: 如何用代码设置动画