PowerPoint VBA教程:AnimateBackground属性

应用于 AnimationSettings对象的 AnimateBackground属性。

如果指定对象是自选图形,则形状与其所含的文本分别动画时该属性值为 msoTrue;如果指定形状是图表对象,则指定图表对象的背景(坐标轴和网格线)动画显示时该属性值为 msoTrue。仅应用于包含可多步创建的文本的自选图形或者图表对象。可读写。MsoTriState 类型。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue

expression.AnimateBackground

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

应用于 EffectInformation对象的 AnimateBackground属性。

如果指定的效果是背景动画,则返回 MsoTrue。只读。MsoTriState 类型。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue

expression.AnimateBackground

expression  必选。该表达式返回上述对象之一。

说明

使用TextLevelEffectTextUnitEffect属性控制放入指定形状中的文本的动画效果。

如果设置该属性为 MsoTrue 并设置 TextLevelEffect属性为 ppAnimateByAllLevels,形状及其文本将被同时赋予动画效果。如果设置该属性为 MsoTrue 并设置 TextLevelEffect属性为非 ppAnimateByAllLevels 的值,则形状将在文本之前直接被赋予动画效果。

如果不给指定形状赋予动画效果,则看不到设置该属性的效果。对于要赋予动画效果的形状,必须将该形状的 TextLevelEffect属性设置为非 ppAnimateLevelNone 的值,并且必须将Animate属性设置为 MsoTrue,或者必须将EntryEffect属性设置为一个非 ppEffectNone 的常数。

VBA示例

应用于 AnimationSettings对象。

本示例创建一个包含文本的矩形框。本示例还指定该形状应该从右下角飞入,文本应该从第一级段落创建,且该形状应该与其所包含的文本分别动画显示。在本示例中,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

应用于 EffectInformation对象。

本示例中,如果背景当前具有动画效果,则更改该动画的方向。


Sub ChangeAnimationDirection()
    With ActivePresentation.Slides(1).TimeLine.MainSequence(1)
        If .EffectInformation.AnimateBackground = msoTrue Then
            .EffectParameters.Direction = msoAnimDirectionTopLeft
        End If
    End With
End Sub

上页:PowerPoint VBA教程:AnimateAction属性 下页:PowerPoint VBA教程:AnimateTextInReverse属性

PowerPoint VBA教程:AnimateBackground属性

PowerPoint VBA教程:AnimateTextInReverse属性 PowerPoint VBA教程:AnimationOrder属性
PowerPoint VBA教程:AnimationSettings属性 PowerPoint VBA教程:AnswerWizard属性
PowerPoint VBA教程:Application属性 PowerPoint VBA教程:Assistant属性
PowerPoint VBA教程:Author属性 PowerPoint VBA教程:AuthorIndex属性
PowerPoint VBA教程:AuthorInitials属性 PowerPoint VBA教程:AutoAttach属性
PowerPoint VBA教程:AutoCorrect属性 PowerPoint VBA教程:AutoFormat属性
PowerPoint VBA教程:AutoLayout属性 PowerPoint VBA教程:AutoLength属性
PowerPoint VBA教程:AutoLoad属性 PowerPoint VBA教程:AutomationSecurity属性
PowerPoint VBA教程:AutoReverse属性 PowerPoint VBA教程:AutoRotateNumbers属性
PowerPoint VBA教程:AutoShapeType属性 PowerPoint VBA教程:AutoSize属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号