PowerPoint VBA教程:RotationEffect对象

   
AnimationBehavior
RotationEffect

代表AnimationBehavior对象的旋转效果。

使用 RotationEffect对象

使用 AnimationBehavior对象的RotationEffect属性返回 RotationEffect对象。以下示例引用了给定动画动作的旋转效果。


ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).RotationEffect

使用 RotationEffect对象的ByFromTo属性影响对象的动画旋转。以下示例向第一张幻灯片添加新的形状并设置旋转动画动作。


Sub AddRotation()
    Dim shpNew As Shape
    Dim effNew As Effect
    Dim aniNew As AnimationBehavior
    Set shpNew = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShape5pointStar, Left:=0, _
        Top:=0, Width:=100, Height:=100)
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpNew, effectId:=msoAnimEffectCustom)
    Set aniNew = effNew.Behaviors.Add(msoAnimTypeRotation)
    With aniNew.RotationEffect
        'Rotate 270 degrees from current position
        .By = 270
    End With
End Sub

上页:PowerPoint VBA教程:RGBColor对象 下页:PowerPoint VBA教程:Row对象

PowerPoint VBA教程:RotationEffect对象

PowerPoint VBA教程:Row对象 PowerPoint VBA教程:Rows集合对象
PowerPoint VBA教程:Ruler对象 PowerPoint VBA教程:RulerLevel对象
PowerPoint VBA教程:RulerLevels集合对象 PowerPoint VBA教程:ScaleEffect对象
PowerPoint VBA教程:Selection对象 PowerPoint VBA教程:Sequence集合
PowerPoint VBA教程:Sequences集合 PowerPoint VBA教程:ShadowFormat对象
PowerPoint VBA教程:Shape对象 PowerPoint VBA教程:ShapeNode对象
PowerPoint VBA教程:ShapeNodes集合对象 PowerPoint VBA教程:ShapeRange集合对象
PowerPoint VBA教程:Shapes集合对象 PowerPoint VBA教程:Slide对象
PowerPoint VBA教程:SlideRange集合对象 PowerPoint VBA教程:Slides集合对象
PowerPoint VBA教程:SlideShowSettings对象 PowerPoint VBA教程:SlideShowTransition对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号