Свойство AnimationSettings.AnimateBackground (PowerPoint)

Статья
04/07/2023

Если указанный объект является автофигурой, указывает, анимируется ли фигура отдельно от содержащегося в ней текста. Для чтения и записи.

Синтаксис

выражение. AnimateBackground

Выражение Переменная, представляющая объект AnimationSettings .

Замечания

Используйте свойства TextLevelEffectи TextUnitEffect для управления анимацией текста, присоединенного к указанной фигуре.

Если указанная фигура является объектом графа, значение свойства — msoTrue , если фон (оси и линии сетки) указанного объекта графа анимирован. Свойство применяется только к автофигурам с текстом, который можно построить в нескольких шагах, или к объектам graph.

Если для этого свойства задано значение msoTrue , а свойству TextLevelEffect присвоено значение ppAnimateByAllLevels, фигура и ее текст анимируются одновременно. Если для этого свойства задано значение msoTrue , а свойству TextLevelEffect присвоено значение, отличное от ppAnimateByAllLevels, фигура анимируется непосредственно перед анимированием текста.

Эффекты установки этого свойства не очевидны, если указанная фигура не анимирована. Для анимирования фигуры свойство TextLevelEffect для фигуры должно иметь значение, отличное от ppAnimateLevelNone, а свойство Animate должно иметь значение msoTrue или свойство EntryEffect должно иметь константу, отличаемую от ppEffectNone.

Значение свойства AnimateBackground может быть одной из этих констант MsoTriState .

Константа	Описание
msoFalse	Указанная фигура не анимируется отдельно от текста, который она содержит.
msoTrue	Указанная фигура анимируется отдельно от текста, который она содержит.

Пример

В этом примере создается прямоугольник, содержащий текст. Затем в примере указывается, что фигура должна летать в правом нижнем углу, что текст должен быть построен из абзацев первого уровня и что фигура должна быть анимирована отдельно от текста, который она содержит. В этом примере свойство 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

См. также

Объект AnimationSettings

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через