Partager via


EffectInformation.BuildByLevelEffect Property (PowerPoint)

Determines the level of the animation build effect. Read-only.

Syntax

expression .BuildByLevelEffect

expression A variable that represents a EffectInformation object.

Return Value

MsoAnimateByLevel

Remarks

The value returned by the BuildByLevelEffect property can be one of these MsoAnimateByLevel constants.

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

Example

The following example returns a build-by-level effect.

Sub QueryBuildByLevelEffect()



    Dim effMain As Effect



    Set effMain = ActivePresentation.Slides(1).TimeLine _

        .MainSequence(1)



    If effMain.EffectInformation.BuildByLevelEffect <> msoAnimateLevelNone Then

        ActivePresentation.Slides(1).TimeLine.MainSequence _

            .ConvertToTextUnitEffect Effect:=effMain, _

            UnitEffect:=msoAnimTextUnitEffectByWord

    End If



End Sub

See Also

Concepts

EffectInformation Object Members

EffectInformation Object