EffectParameters.Direction Property (PowerPoint)
Determines 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
The value of the Direction property 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.
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