通过VBA中的Effect对象给PowerPoint动态添加动画效果 |
您所在的位置:网站首页 › 怎么给ppt加两个动画效果 › 通过VBA中的Effect对象给PowerPoint动态添加动画效果 |
如何通过VBA程序代码,给演示文稿PowerPoint中的对象动态的添加动画效果? 下面是一个实例,希望对您有所启发。 本例:在当前演示文稿的第一张幻灯片中添加一个形状,并为该形状添加一种效果和一个动作。 Sub MyNewShapeAndEffect()'动态添加一个图形 Dim shpStar As Shape Dim sldOne As Slide Dim effNew As Effect Set sldOne = ActivePresentation.Slides(1) Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, Left:=150, Top:=72, Width:=400, Height:=400) Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious) With effNew With .Behaviors.Add(msoAnimTypeScale).ScaleEffect .FromX = 75 .FromY = 75 .ToX = 0 .ToY = 0 End With .Timing.AutoReverse = msoTrue End With End Sub 若要引用现有的 Effect对象,请使用MainSequence(index),其中 index 是 Effect对象在Sequence集合中的编号。本示例更改第一个序列的效果并为该效果指定动作。 Sub MyChangeEffect() With ActivePresentation.Slides(1).TimeLine _ .MainSequence(1) .EffectType = msoAnimEffectSpin With .Behaviors(1).RotationEffect .From = 100 .To = 360 .By = 5 End With End With End Sub 不管幻灯片是否有动画,每张幻灯片中至少有一个 Effect对象。 本代码适合于开发者所借鉴。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |