Sub test()
Dim sld As Slide
Dim sg As ShapeRange
Dim sh As Shape
Dim eff1 As Effect
Dim eff2 As Effect
Set sg = ActiveWindow.Selection.ShapeRange
Set sld = sg.Parent
Set sh = sg.Group
Set eff1 = sld.TimeLine.MainSequence.AddEffect(sh.GroupItems(1), 105, , msoAnimTriggerAfterPrevious)
Set eff2 = sld.TimeLine.MainSequence.AddEffect(sh.GroupItems(2), 95, , msoAnimTriggerAfterPrevious)
End Sub
给出个简单两个图片组合并加载动画的代码
Sub test()
Dim sld As Slide
Dim sg As ShapeRange
Dim sh As Shape
Dim eff1 As Effect
Dim eff2 As Effect
Set sg = ActiveWindow.Selection.ShapeRange
Set sld = sg.Parent
Set sh = sg.Group
Set eff1 = sld.TimeLine.MainSequence.AddEffect(sh.GroupItems(1), 105, , msoAnimTriggerAfterPrevious)
Set eff2 = sld.TimeLine.MainSequence.AddEffect(sh.GroupItems(2), 95, , msoAnimTriggerAfterPrevious)
End Sub
[ 本帖最后由 laose 于 2011-10-12 19:41 编辑 ]