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.