PowerPoint VBA教程:RepeatCount属性

设置或返回 Long 类型值,该值代表重复动画所需的次数。可读写。

expression.RepeatCount

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

VBA示例

本示例创建一个形状并对该形状添加一个动画,然后重复该动画两遍。


Sub AddShapeSetTiming()
    Dim effDiamond As Effect
    Dim shpRectangle As Shape
    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)
    With effDiamond.Timing
        .Duration = 5 ' Length of effect.
        .RepeatCount = 2 ' How many times to repeat.
    End With
End Sub

上页:PowerPoint VBA教程:RemovePersonalInformation属性 下页:PowerPoint VBA教程:RepeatDuration属性

PowerPoint VBA教程:RepeatCount属性

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