Método Sequence.AddEffect (PowerPoint)

Devuelve un objeto Effect que representa un efecto de animación nuevo agregado a una secuencia de efectos de animación.

Sintaxis

expresión. AddEffect( _Shape_, _effectId_, _Level_, _trigger_, _Index_ )

Expresión Variable que representa un objeto Sequence .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Shape	Obligatorio	Shape	Forma a la que se agrega el efecto de animación.
effectId	Obligatorio	MsoAnimEffect	Efecto de animación que se va a aplicar.
Level	Opcional	MsoAnimateByLevel	Para gráficos, diagramas o texto, nivel al que se aplicará el efecto de animación. El valor predeterminado es msoAnimationLevelNone.
trigger	Opcional	MsoAnimTriggerType	La acción que desencadena el efecto de animación. El valor predeterminado es msoAnimTriggerOnPageClick.
Index	Opcional	Long	Posición en la que se colocará el efecto en la colección de efectos de animación. El valor predeterminado es -1 (agregado al final).

Valor devuelto

Efecto

Ejemplo:

En el ejemplo siguiente se agrega una animación que rebota al primer intervalo de formas de la primera diapositiva. En este ejemplo se presupone que se selecciona un intervalo de formas que contiene una o más formas en la primera diapositiva.

Sub AddBouncingAnimation()

    Dim sldActive As Slide
    Dim shpSelected As Shape

    Set sldActive = ActiveWindow.Selection.SlideRange(1)
    Set shpSelected = ActiveWindow.Selection.ShapeRange(1)

    ' Add a bouncing animation.
    sldActive.TimeLine.MainSequence.AddEffect _
        Shape:=shpSelected, effectId:=msoAnimEffectBounce

End Sub

Consulte también

Objeto Sequence

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.