constant that represents the level of the animation build effect. Read-only.
MsoAnimateByLevel 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 |
expression.BuildByLevelEffect
expression Required. An expression that returns one of the objects in the Applies To list.
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