Propiedad Timing.TriggerShape (PowerPoint)

Establece o devuelve un objeto Shape que representa la forma asociada con un desencadenador de animación. Lectura y escritura.

Sintaxis

expresión. TriggerShape

Expresión Variable que representa un objeto Timing .

Valor devuelto

Forma

Ejemplo

En el siguiente ejemplo se agregan dos formas a una diapositiva, se agrega una animación a una forma y se inicia la animación cuando se hace clic en la otra forma.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    Set shpOval = _
      ActivePresentation.Slides(1).Shapes. _
      AddShape(Type:=msoShapeOval, Left:=400, Top:=100, Width:=100, Height:=50)

    Set shpRectangle = ActivePresentation.Slides(1).Shapes. _
      AddShape(Type:=msoShapeRectangle, Left:=100, Top:=100, Width:=50, Height:=50)

    Set effDiamond = ActivePresentation.Slides(1).TimeLine. _
      InteractiveSequences.Add().AddEffect(Shape:=shpRectangle, _
      effectId:=msoAnimEffectPathDiamond, trigger:=msoAnimTriggerOnShapeClick)

    With effDiamond.Timing
        .Duration = 5
        .TriggerShape = shpOval
    End With

End Sub

Consulte también

Objeto de control de tiempo

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.