全部显示

ConvertToAnimateBackground 方法

       

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

expression.ConvertToAnimateBackground(Effect, AnimateBackground)

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

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

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

示例

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

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