Sequence.ConvertToAnimateInReverse Method
Determines whether text will be animated in reverse order. Returns an ColorEffect object representing the text animation.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Function ConvertToAnimateInReverse ( _
Effect As Effect, _
animateInReverse As MsoTriState _
) As Effect
'Usage
Dim instance As Sequence
Dim Effect As Effect
Dim animateInReverse As MsoTriState
Dim returnValue As Effect
returnValue = instance.ConvertToAnimateInReverse(Effect, _
animateInReverse)
Effect ConvertToAnimateInReverse(
Effect Effect,
MsoTriState animateInReverse
)
Parameters
- Effect
Type: Microsoft.Office.Interop.PowerPoint.Effect
The animation effect to which the reversal will apply.
- animateInReverse
Type: Microsoft.Office.Core.MsoTriState
Determines the text animation order.
Return Value
Type: Microsoft.Office.Interop.PowerPoint.Effect
Effect
Examples
This example creates a shape with text on a slide and adds a random animation to the shape, ensuring the shape's text animates in reverse.
Sub AnimateInReverse()
Dim sldActive As Slide
Dim timeMain As TimeLine
Dim shpRect As Shape
' Create a slide, add a rectangular shape to the slide, and
' access the slide's animation timeline.
With ActivePresentation
Set sldActive = .Slides.Add(Index:=1, Layout:=ppLayoutBlank)
Set shpRect = sldActive.Shapes.AddShape(Type:=msoShapeRectangle, _
Left:=100, Top:=100, Width:=300, Height:=150)
Set timeMain = sldActive.TimeLine
End With
shpRect.TextFrame.TextRange.Text = "This is a rectangle."
' Add a random animation effect to the rectangle,
' and animate the text in reverse.
With timeMain.MainSequence
.ConvertToAnimateInReverse_
Effect:=.AddEffect(Shape:=shpRect, effectId:=msoAnimEffectRandom), _
AnimateInReverse:=msoTrue
End With
End Sub