PowerPoint VBA教程:ConvertToAnimateBackground方法

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

expression.ConvertToAnimateBackground(Effect, AnimateBackground)

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

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

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

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 脱离背景单独动画显示文本。
msoTriStateMixed
msoTriStateToggle
msoTrue 背景与文本一同动画显示。

VBA示例

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


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

上页:PowerPoint VBA教程:ConvertToAfterEffect方法 下页:PowerPoint VBA教程:ConvertToAnimateInReverse方法

PowerPoint VBA教程:ConvertToAnimateBackground方法

PowerPoint VBA教程:ConvertToAnimateInReverse方法 PowerPoint VBA教程:ConvertToBuildLevel方法
PowerPoint VBA教程:ConvertToShape方法 PowerPoint VBA教程:ConvertToTextUnitEffect方法
PowerPoint VBA教程:Copy方法 PowerPoint VBA教程:CreateNewDocument方法
PowerPoint VBA教程:CustomDrop方法 PowerPoint VBA教程:CustomLength方法
PowerPoint VBA教程:Cut方法 PowerPoint VBA教程:Delete方法
PowerPoint VBA教程:DeleteText方法 PowerPoint VBA教程:DiscardConflict Method
PowerPoint VBA教程:Distribute方法 PowerPoint VBA教程:DoVerb方法
PowerPoint VBA教程:DrawLine方法 PowerPoint VBA教程:Duplicate方法
PowerPoint VBA教程:EndConnect方法 PowerPoint VBA教程:EndDisconnect方法
PowerPoint VBA教程:EndNamedShow方法 PowerPoint VBA教程:EndReview方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号