PowerPoint VBA教程:Direction属性

返回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  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

以下示例添加一个形状,并且将该形状的动画效果设置为从左侧飞入。


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

上页:PowerPoint VBA教程:DimColor属性 下页:PowerPoint VBA教程:DisplayAlerts属性

PowerPoint VBA教程:Direction属性

PowerPoint VBA教程:DisplayAlerts属性 PowerPoint VBA教程:DisplayAutoCorrectOptions属性
PowerPoint VBA教程:DisplayAutoLayoutOptions属性 PowerPoint VBA教程:DisplayComments属性
PowerPoint VBA教程:DisplayGridLines属性 PowerPoint VBA教程:DisplayMasterShapes属性
PowerPoint VBA教程:DisplayName属性 PowerPoint VBA教程:DisplayOnTitleSlide属性
PowerPoint VBA教程:DisplayPasteOptions属性 PowerPoint VBA教程:DisplaySlideMiniature属性
PowerPoint VBA教程:Drop属性 PowerPoint VBA教程:DropType属性
PowerPoint VBA教程:Duration属性 PowerPoint VBA教程:EditingType属性
PowerPoint VBA教程:EffectInformation属性 PowerPoint VBA教程:EffectParameters属性
PowerPoint VBA教程:EffectType属性 PowerPoint VBA教程:EmailSubject属性
PowerPoint VBA教程:Embeddable属性 PowerPoint VBA教程:Embedded属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号