PowerPoint VBA教程:RotationEffect属性

返回动画动作的RotationEffect对象。

expression.RotationEffect

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

以下示例在第一张幻灯片中添加一个新形状并设置旋转动画动作。


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教程:Rotation属性 下页:PowerPoint VBA教程:RotationX属性

PowerPoint VBA教程:RotationEffect属性

PowerPoint VBA教程:RotationX属性 PowerPoint VBA教程:RotationY属性
PowerPoint VBA教程:Rows属性 PowerPoint VBA教程:Ruler属性
PowerPoint VBA教程:Run属性 PowerPoint VBA教程:Saved属性
PowerPoint VBA教程:SaveNewWebPagesAsWebArchives属性 PowerPoint VBA教程:ScaleEffect属性
PowerPoint VBA教程:SchemeColor属性 PowerPoint VBA教程:ScreenSize属性
PowerPoint VBA教程:ScreenTip属性 PowerPoint VBA教程:Script属性
PowerPoint VBA教程:Scripts属性 PowerPoint VBA教程:SegmentType属性
PowerPoint VBA教程:Selected属性 PowerPoint VBA教程:Selection属性
PowerPoint VBA教程:Shadow属性 PowerPoint VBA教程:Shape属性
PowerPoint VBA教程:ShapeRange属性 PowerPoint VBA教程:Shapes属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号