返回 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