Returns an MsoAnimDirection that represents the direction used for an animation effect. This property can be used only if the effect uses a direction. Read/write.

Syntax

expression.Direction

expression A variable that represents a EffectParameters object.

Return Value
MsoAnimDirection

Remarks

MsoAnimDirection can be one of these MsoAnimDirection constants.
msoAnimDirectionAcross
msoAnimDirectionBottom
msoAnimDirectionBottomLeft
msoAnimDirectionBottomRight
msoAnimDirectionCenter
msoAnimDirectionClockwise
msoAnimDirectionCounterclockwise
msoAnimDirectionCycleClockwise
msoAnimDirectionCycleCounterclockwise
msoAnimDirectionDown
msoAnimDirectionDownLeft
msoAnimDirectionDownRight
msoAnimDirectionFontAllCaps
msoAnimDirectionFontBold
msoAnimDirectionFontItalic
msoAnimDirectionFontShadow
msoAnimDirectionFontStrikethrough
msoAnimDirectionFontUnderline
msoAnimDirectionGradual
msoAnimDirectionHorizontal
msoAnimDirectionHorizontalIn
msoAnimDirectionHorizontalOut
msoAnimDirectionIn
msoAnimDirectionInBottom
msoAnimDirectionInCenter
msoAnimDirectionInSlightly
msoAnimDirectionInstant
msoAnimDirectionLeft
msoAnimDirectionNone
msoAnimDirectionOrdinalMask
msoAnimDirectionOut
msoAnimDirectionOutBottom
msoAnimDirectionOutCenter
msoAnimDirectionOutSlightly
msoAnimDirectionRight
msoAnimDirectionSlightly
msoAnimDirectionTop
msoAnimDirectionTopLeft
msoAnimDirectionTopRight
msoAnimDirectionUp
msoAnimDirectionUpLeft
msoAnimDirectionUpRight
msoAnimDirectionVertical
msoAnimDirectionVerticalIn
msoAnimDirectionVerticalOut

Example

The following example adds a shape, and animates the shape to fly in from the left.

Visual Basic for Applications 
Sub AddShapeSetAnimFly() Dim effFly As Effect Dim shpCube As Shape Set shpCube = ActivePresentation.Slides(1).Shapes _ .AddShape(Type:=msoShapeCube, Left:=100, _ Top:=100, Width:=50, Height:=50) Set effFly = ActivePresentation.Slides(1).TimeLine.MainSequence _ .AddEffect(Shape:=shpCube, effectId:=msoAnimEffectFly) effFly.Timing.Duration = 3 effFly.EffectParameters.Direction = msoAnimDirectionLeft End Sub

See also: