全部显示

ConvertToBuildLevel 方法

更改指定动画效果的创建级别信息。返回 Effect 对象，该对象代表创建级别信息。

expression  必选。该表达式返回一个 Sequence 对象。

Effect  必选。Effect 对象。指定的动画效果。

Level  必选。MsoAnimateByLevel 类型。动画的创建级别。

说明

更改一个效果的创建级别信息将使任何现有的效果失效。

示例

以下示例更改一个动画效果的创建级别信息，这将使其原效果失效。

Sub ConvertBuildLevel()
    Dim sldFirst As Slide
    Dim shpFirst As Shape
    Dim effFirst As Effect
    Dim effConvert As Effect

    Set sldFirst = ActiveWindow.Selection.SlideRange(1)
    Set shpFirst = sldFirst.Shapes(1)
    Set effFirst = sldFirst.TimeLine.MainSequence _
        .AddEffect(Shape:=shpFirst, EffectID:=msoAnimEffectAscend)
    Set effConvert = sldFirst.TimeLine.MainSequence _
        .ConvertToBuildLevel(Effect:=effFirst, _
        Level:=msoAnimateTextByFirstLevel)
End Sub