PowerPoint VBA教程:MoveAfter方法

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

expression.MoveAfter(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)
    effOne.MoveAfter Effect:=effTwo
End Sub

上页:PowerPoint VBA教程:Merge方法 下页:PowerPoint VBA教程:MoveBefore方法

PowerPoint VBA教程:MoveAfter方法

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方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号