Propriedade AnimationBehavior.SetEffect (PowerPoint)

Retorna um objeto SetEffect para o comportamento de animação. Somente leitura.

Sintaxe

expression. SetEffect

expressão Uma variável que representa um objeto AnimationBehavior .

Valor de retorno

SetEffect

Comentários

Use o objeto SetEffect retornado para definir o valor de uma propriedade.

Exemplo

O exemplo a seguir adiciona uma forma ao primeiro slide da apresentação ativa e define um comportamento de animação com efeito de definição.

Sub ChangeSetEffect()

    Dim sldFirst As Slide
    Dim shpHeart As Shape
    Dim effNew As Effect
    Dim bhvEffect As AnimationBehavior

    Set sldFirst = ActivePresentation.Slides(1)
    Set shpHeart = sldFirst.Shapes.AddShape(Type:=msoShapeHeart, _
        Left:=100, Top:=100, Width:=100, Height:=100)

    Set effNew = sldFirst.TimeLine.MainSequence.AddEffect _
        (Shape:=shpHeart, EffectID:=msoAnimEffectChangeFillColor, _
        Trigger:=msoAnimTriggerAfterPrevious)

    Set bhvEffect = effNew.Behaviors.Add(msoAnimTypeSet)

    With bhvEffect.SetEffect
         .Property = msoAnimShapeFillColor
        .To = RGB(Red:=0, Green:=255, Blue:=255)
    End With

End Sub

Confira também

Objeto AnimationBehavior

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.