Свойство Timing.RepeatDuration (PowerPoint)

Задает или возвращает длительность повторяющегося анимации (в секундах). Для чтения и записи.

Синтаксис

выражение. RepeatDuration

выражение Переменная, представляющая объект Timing .

Возвращаемое значение

Одинарное с плавающей точкой

Замечания

Анимация останавливается в конце своей последовательности времени или значении свойства RepeatDuration в зависимости от того, какое из значений короче.

Пример

В этом примере добавляется фигура и анимация, а затем анимация повторяется десять раз. Однако через пять секунд анимация будет отрезана, даже если анимация будет измерена для 20-секундного временная шкала (если свойство Duration не указано, анимация по умолчанию составляет две секунды).

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds new 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 repeat duration and number of times to repeat animation
    With effDiamond.Timing
        .RepeatDuration = 5
        .RepeatCount = 10
    End With

End Sub

См. также

Объект Timing

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.