全部显示返回 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 |
expression.BuildByLevelEffect
expression 必选。该表达式返回“应用于”列表中的对象之一。
以下示例返回一个按级别创建的效果。
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