Objeto PropertyEffect (PowerPoint)

Representa um efeito de propriedade para um objeto AnimationBehavior.

Exemplo

Use a propriedade PropertyEffect do objeto AnimationBehavior para retornar um objeto PropertyEffect. O exemplo a seguir refere-se ao efeito de propriedade de um comportamento de animação especificado.

ActivePresentation.Slides(1).TimeLine.MainSequence.Item(1) _
   .Behaviors(1).PropertyEffect

Use a propriedade Points para acessar os pontos de animação de um comportamento de animação específico. Se você quiser alterar apenas dois estados de um comportamento de animação, use as propriedades Dee Para. Este exemplo adiciona uma nova forma a e define o efeito de propriedade para animar a cor de preenchimento de azul para vermelho.

Sub AddShapeSetAnimFill()

    Dim effBlinds As Effect
    Dim shpRectangle As Shape
    Dim animProperty As AnimationBehavior

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

    Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds)

    effBlinds.Timing.Duration = 3
    Set animProperty = effBlinds.Behaviors.Add(msoAnimTypeProperty)

    With animProperty.PropertyEffect
        .Property = msoAnimColor
        .From = RGB(Red:=0, Green:=0, Blue:=255)
        .To = RGB(Red:=255, Green:=0, Blue:=0)
    End With

End Sub

Confira também

Referência de modelo de objeto do PowerPoint

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.