Question

全部显示

应用于 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 的常数。

示例

应用于AnimationSettings 对象。

本示例创建一个包含文本的矩形框。本示例还指定该形状应该从右下角飞入，文本应该从第一级段落创建，且该形状应该与其所包含的文本分别动画显示。在本示例中，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

应用于EffectInformation 对象。

本示例中，如果背景当前具有动画效果，则更改该动画的方向。

Sub ChangeAnimationDirection()
    With ActivePresentation.Slides(1).TimeLine.MainSequence(1)
        If .EffectInformation.AnimateBackground = msoTrue Then
            .EffectParameters.Direction = msoAnimDirectionTopLeft
        End If
    End With
End Sub