应用于 AnimationSettings 对象的 AnimateBackground 属性。
如果指定对象是自选图形,则形状与其所含的文本分别动画时该属性值为 msoTrue;如果指定形状是图表对象,则指定图表对象的背景(坐标轴和网格线)动画显示时该属性值为 msoTrue。仅应用于包含可多步创建的文本的自选图形或者图表对象。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
msoCTrue |
msoFalse |
msoTriStateMixed |
msoTriStateToggle |
msoTrue |
expression.AnimateBackground
expression 必选。该表达式返回一个 AnimationSettings 对象。
应用于 EffectInformation 对象的 AnimateBackground 属性。
如果指定的效果是背景动画,则返回 MsoTrue。只读。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
msoCTrue |
msoFalse |
msoTriStateMixed |
msoTriStateToggle |
msoTrue |
expression.AnimateBackground
expression 必选。该表达式返回上述对象之一。
使用 TextLevelEffect 和 TextUnitEffect 属性控制放入指定形状中的文本的动画效果。
如果设置该属性为 MsoTrue 并设置 TextLevelEffect 属性为 ppAnimateByAllLevels,形状及其文本将被同时赋予动画效果。如果设置该属性为 MsoTrue 并设置 TextLevelEffect 属性为非 ppAnimateByAllLevels 的值,则形状将在文本之前直接被赋予动画效果。
如果不给指定形状赋予动画效果,则看不到设置该属性的效果。对于要赋予动画效果的形状,必须将该形状的 TextLevelEffect 属性设置为非 ppAnimateLevelNone 的值,并且必须将 Animate 属性设置为 MsoTrue,或者必须将 EntryEffect 属性设置为一个非 ppEffectNone 的常数。
本示例创建一个包含文本的矩形框。本示例还指定该形状应该从右下角飞入,文本应该从第一级段落创建,且该形状应该与其所包含的文本分别动画显示。在本示例中,EntryEffect 属性用于打开动画显示。
Sub AnimateTextBox()
With ActivePresentation.Slides(1).Shapes.AddShape _
(Type:=msoShapeRectangle, Left:=50, Top:=200, _
Width:=200, Height:=200)
.TextFrame.TextRange = "Reason 1" & Chr(13) & _
"Reason 2" & Chr(13) & "Reason 3"
With .AnimationSettings
.EntryEffect = ppEffectFlyFromBottomRight
.TextLevelEffect = ppAnimateByFirstLevel
.TextUnitEffect = ppAnimateByParagraph
.AnimateBackground = msoTrue
End With
End With
End Sub
本示例中,如果背景当前具有动画效果,则更改该动画的方向。
Sub ChangeAnimationDirection()
With ActivePresentation.Slides(1).TimeLine.MainSequence(1)
If .EffectInformation.AnimateBackground = msoTrue Then
.EffectParameters.Direction = msoAnimDirectionTopLeft
End If
End With
End Sub