Direction Property
From Microsoft PowerPoint Visual Basic
Direction Property
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.
| 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 |
expression.Direction
expression Required. An expression that returns one of the objects in the Applies To list.
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