通过

AnimationSettings.AnimateBackground 属性 (PowerPoint)

  • 项目

如果指定的对象是自选图形，则指定该形状是否独立于其所包含的文本单独显示动画。 读/写。

语法

expression。 AnimateBackground

表达 一个代表 AnimationSettings 对象的变量。

备注

TextLevelEffect和 TextUnitEffect 属性用于控制文本附加到指定形状的动画效果。

如果指定的形状是图形对象，则属性值为 msoTrue 如果指定的图形对象的背景 (坐标轴和网格线) 被赋予动画效果。 属性应用到有可以在多个步骤中生成的文本的自选图形或图形对象。

如果此属性设置为 msoTrue ， TextLevelEffect 属性设置为 ppAnimateByAllLevels ，形状和其文本具有动画效果同时。 如果此属性设置为 msoTrue ， TextLevelEffect 属性设置为 ppAnimateByAllLevels 之外的任何内容，形状是经过动画处理的动画显示文本之前。

设置该属性的效果是不明显，除非指定的形状赋予动画。 或形状进行动画处理，该形状的 TextLevelEffect 属性必须设置为 ppAnimateLevelNone ，和 动画 属性必须设置为 msoTrue ，必须将 EntryEffect 属性设置为除 ppEffectNone 以外的常数。

AnimateBackground 属性的值可以是其中一个 MsoTriState 常量。

常量 说明
msoFalse 指定的形状不独立于其所包含的文本单独显示动画。
msoTrue 指定的形状独立于其所包含的文本单独显示动画。

示例

本示例创建一个包含文本的矩形。 然后，该示例指定形状应从右下角飞入，文本应从第一级段落生成，并且形状应与它包含的文本分开进行动画处理。 在此示例中， 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

另请参阅

AnimationSettings 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。