PowerPoint VBA教程:RewindAtEnd属性

设置或返回MsoTriState 类型常数,该常数代表动画结束后对象是否返回其初始位置。可读写。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。动画结束后对象不返回其初始位置。 
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 动画结束后对象返回其初始位置。 

expression.RewindAtEnd

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

VBA示例

以下示例添加一个形状并向该形状添加一个动画,然后指示该形状在动画结束后返回其初始位置。


Sub AddShapeSetTiming()
    Dim effDiamond As Effect
    Dim shpRectangle As Shape
    'Adds shape and sets animation effect
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectPathDiamond)
    'Sets duration of animation and returns shape to its original position
    With effDiamond.Timing
        .Duration = 3
        .RewindAtEnd = msoTrue
    End With
End Sub

上页:PowerPoint VBA教程:Reverse属性 下页:PowerPoint VBA教程:RewindMovie属性

PowerPoint VBA教程:RewindAtEnd属性

PowerPoint VBA教程:RewindMovie属性 PowerPoint VBA教程:RGB属性
PowerPoint VBA教程:Root属性 PowerPoint VBA教程:RotatedChars属性
PowerPoint VBA教程:Rotation属性 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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号