Question

全部显示

确定背景是否脱离文本单独动画显示。返回一个Effect 对象，该对象代表一个刚修改过的动画效果。

expression.ConvertToAnimateBackground(Effect, AnimateBackground)

expression必选。该表达式返回一个 Sequence 对象。

Effect必选。Effect 类型。应用于该背景的动画效果。

AnimateBackground必选。MsoTriState 类型。确定文本是否脱离背景单独动画显示。

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue

msoFalse脱离背景单独动画显示文本。

msoTriStateMixed

msoTriStateToggle

msoTrue背景与文本一同动画显示。

示例

本示例为当前演示文稿中第一张幻灯片的第一个形状创建一个文本效果，并脱离背景单独动画显示该文本。本示例假定第一张幻灯片上有一个形状，并且该形状内具有文本。

Sub AnimateText()

    Dim timeMain As TimeLine
    Dim shpActive As Shape

    Set shpActive = ActivePresentation.Slides(1).Shapes(1)
    Set timeMain = ActivePresentation.Slides(1).TimeLine

    ' Add a blast effect to the text, and animate the text separately
    ' from the background.
    timeMain.MainSequence.ConvertToAnimateBackground _
        Effect:=timeMain.MainSequence.AddEffect(Shape:=shpActive, _
            effectid:=msoAnimEffectBlast), _
        AnimateBackGround:=msoFalse

End Sub