Objeto PropertyEffect (PowerPoint)PropertyEffect object (PowerPoint)

  • 2 minutos para o fim da leitura

Representa um efeito de propriedade para um objeto AnimationBehavior.Represents a property effect for an AnimationBehavior object.

ExemploExample

Use a propriedade PropertyEffectdo objeto AnimationBehavior para retornar um objeto PropertyEffect .Use the PropertyEffectproperty of the AnimationBehavior object to return a PropertyEffect object. O exemplo a seguir refere-se ao efeito de propriedade de um comportamento de animação especificado.The following example refers to the property effect for a specified animation behavior.

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.Use the Points property to access the animation points of a particular animation behavior. Se você quiser alterar apenas dois Estados de um comportamento de animação, use as propriedades frome to.If you want to change only two states of an animation behavior, use the Fromand Toproperties. Este exemplo adiciona uma nova forma a e define o efeito de propriedade para animar a cor de preenchimento de azul para vermelho.This example adds a new shape to the and sets the property effect to animate the fill color from blue to red.

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émSee also

Referência de modelos de objeto do PowerPointPowerPoint Object Model Reference

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.