PowerPoint VBA教程:MoveBefore方法

将一个动画效果移动到另一个动画效果之前。

expression.MoveBefore(Effect)

expression 必选。该表达式返回“应用于”列表中的对象之一。

Effect 必选。Effect对象。expression 中的效果将被移动到其前的效果。

VBA示例

以下示例将一个效果移动到另一个效果之前。


Sub MoveEffect()
    Dim effOne As Effect
    Dim effTwo As Effect
    Dim shpFirst As Shape
    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
    Set effOne = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlinds)
    Set effTwo = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlast)
    effTwo.MoveBefore Effect:=effOne
End Sub

上页:PowerPoint VBA教程:MoveAfter方法 下页:PowerPoint VBA教程:MoveNode方法

PowerPoint VBA教程:MoveBefore方法

PowerPoint VBA教程:MoveNode方法 PowerPoint VBA教程:MoveTo方法
PowerPoint VBA教程:Name方法 PowerPoint VBA教程:NewWindow方法
PowerPoint VBA教程:Next方法 PowerPoint VBA教程:NextNode方法
PowerPoint VBA教程:OfflineConflict Method PowerPoint VBA教程:OneColorGradient方法
PowerPoint VBA教程:Open方法 PowerPoint VBA教程:Paragraphs方法
PowerPoint VBA教程:Paste方法 PowerPoint VBA教程:PasteSpecial方法
PowerPoint VBA教程:Patterned方法 PowerPoint VBA教程:PickUp方法
PowerPoint VBA教程:Picture方法 PowerPoint VBA教程:Play方法
PowerPoint VBA教程:PointsToScreenPixelsX方法 PowerPoint VBA教程:PointsToScreenPixelsY方法
PowerPoint VBA教程:PresetDrop方法 PowerPoint VBA教程:PresetGradient方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号