Objeto Effect (PowerPoint)
Representa informações de intervalos sobre uma animação de slides.
Exemplo
Use o método AddEffect para adicionar um efeito. Este exemplo adiciona uma forma ao primeiro slide da apresentação ativa e adiciona um efeito e um comportamento à 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 se referir a um objeto Effect existente, use o método MainSequence(index), em que index é o número do objeto Effect na coleção Sequence . Este exemplo altera o efeito da primeira sequência e especifica o comportamento de efeito.
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
| Nome |
|---|
| Delete |
| MoveAfter |
| MoveBefore |
| MoveTo |
Propriedades
| Nome |
|---|
| Application |
| Comportamentos |
| Displayname |
| EffectInformation |
| EffectParameters |
| EffectType |
| Exit |
| Índice |
| Parágrafo |
| Parent |
| Forma |
| TextRangeLength |
| TextRangeStart |
| Vencimento |
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.