返回 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