Question

全部显示

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

expression.ConvertToBuildLevel(Effect, Level)

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

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

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

MsoAnimateByLevel 可以是下列 MsoAnimateByLevel 类型常数之一。

msoAnimateChartAllAtOnce

msoAnimateChartByCategory

msoAnimateChartByCategoryElements

msoAnimateChartBySeries

msoAnimateChartBySeriesElements

msoAnimateDiagramAllAtOnce

msoAnimateDiagramBreadthByLevel

msoAnimateDiagramBreadthByNode

msoAnimateDiagramClockwise

msoAnimateDiagramClockwiseIn

msoAnimateDiagramClockwiseOut

msoAnimateDiagramCounterClockwise

msoAnimateDiagramCounterClockwiseIn

msoAnimateDiagramCounterClockwiseOut

msoAnimateDiagramDepthByBranch

msoAnimateDiagramDepthByNode

msoAnimateDiagramDown

msoAnimateDiagramInByRing

msoAnimateDiagramOutByRing

msoAnimateDiagramUp

msoAnimateLevelMixed

msoAnimateTextByAllLevels

msoAnimateTextByFifthLevel

msoAnimateTextByFirstLevel

msoAnimateTextByFourthLevel

msoAnimateTextBySecondLevel

msoAnimateTextByThirdLevel

msoAnimationLevelNone

说明

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

示例

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

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