Objeto Effect (PowerPoint)
Representa la información de intervalos de diapositivas de una animación.
Ejemplo:
Use el método AddEffect para agregar un efecto. Este ejemplo agrega una forma a la primera diapositiva de la presentación activa y agrega un efecto y un comportamiento a dicha 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 hacer referencia a un objeto Effect existente, use el método MainSequence(index), donde index es el número del objeto Effect en la colección Sequence . Este ejemplo modifica el efecto de la primera secuencia y especifica el comportamiento de dicho efecto.
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
| Nombre |
|---|
| Delete |
| MoveAfter |
| MoveBefore |
| MoveTo |
Propiedades
| Nombre |
|---|
| Application |
| Comportamientos |
| Displayname |
| EffectInformation |
| EffectParameters |
| EffectType |
| Exit |
| Índice |
| Paragraph |
| Parent |
| Shape |
| TextRangeLength |
| TextRangeStart |
| Momento del pago |
Consulte también
Referencia del modelo de objetos de PowerPoint
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.