确定背景是否脱离文本单独动画显示。返回一个 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