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

Представляет триггер, запускающий анимацию. Для чтения и записи.

Синтаксис

выражение. TriggerType

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

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

MsoAnimTriggerType

Замечания

Значение свойства TriggerType может быть одной из этих констант MsoAnimTriggerType . По умолчанию используется msoAnimTriggerOnPageClick.

msoAnimTriggerAfterPrevious
msoAnimTriggerMixed
msoAnimTriggerNone
msoAnimTriggerOnPageClick
msoAnimTriggerOnShapeClick
msoAnimTriggerWithPrevious

Пример

В следующем примере фигура добавляется к слайду, анимация к фигуре и показано, как она начнет анимацию через три секунды после щелчка.

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 
        .TriggerType = msoAnimTriggerWithPrevious
        .TriggerDelayTime = 3 
    End With 
 
End Sub

См. также

Объект Timing

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

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