全部显示返回 MsoAnimDirection 属性值，该值代表动画效果使用的方向。只当效果使用方向时才可以使用此属性。可读写。
| MsoAnimDirection 可以是下列 MsoAnimDirection 类型常数之一。 |
| 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 |
expression.Direction
expression 必选。该表达式返回“应用于”列表中的对象之一。
以下示例添加一个形状，并且将该形状的动画效果设置为从左侧飞入。
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