Objeto Effect (PowerPoint)

Representa la información de intervalos de diapositivas de una animación.

Ejemplo

Use el método AddEffect para agregar un efecto. Este ejemplo agrega una forma a la primera diapositiva de la presentación activa y agrega un efecto y un comportamiento a dicha forma.

Sub NewShapeAndEffect()

    Dim shpStar As Shape

    Dim sldOne As Slide

    Dim effNew As Effect



    Set sldOne = ActivePresentation.Slides(1)

    Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _

        Left:=150, Top:=72, Width:=400, Height:=400)

    Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _

        EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious)

    With effNew

        With .Behaviors.Add(msoAnimTypeScale).ScaleEffect

            .FromX = 75

            .FromY = 75

            .ToX = 0

            .ToY = 0

        End With

        .Timing.AutoReverse = msoTrue

    End With

End Sub

Para hacer referencia a un objeto Effect existente, use el método MainSequence(index), donde index es el número del objeto Effect en la colección Sequence . Este ejemplo modifica el efecto de la primera secuencia y especifica el comportamiento de dicho efecto.

Sub ChangeEffect()

    With ActivePresentation.Slides(1).TimeLine _

        .MainSequence(1)

        .EffectType = msoAnimEffectSpin

        With .Behaviors(1).RotationEffect

            .From = 100

            .To = 360

            .By = 5

        End With

    End With

End Sub

Métodos

Nombre
Delete
MoveAfter
MoveBefore
MoveTo

Propiedades

Nombre
Application
Comportamientos
DisplayName
EffectInformation
EffectParameters
EffectType
Exit
Índice
Paragraph
Parent
Shape
TextRangeLength
TextRangeStart
Momento del pago

Vea también

Referencia del modelo de objetos de PowerPoint

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.