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

Указывает, является ли текст в указанной фигуре анимированным абзацем, словом за словом или буквой. Для чтения и записи.

Синтаксис

выражение. TextUnitEffect

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

Возвращаемое значение

PpTextUnitEffect

Замечания

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

ppAnimateByCharacter
ppAnimateByParagraph
ppAnimateByWord
ppAnimateUnitMixed

Чтобы свойство TextUnitEffect ввело в силу, свойство TextLevelEffect для указанной фигуры должно иметь значение, отличное от ppAnimateLevelNone или ppAnimateByAllLevels, а свойство Animate должно иметь значение True.

Пример

В этом примере к активной презентации добавляется слайд заголовка и текст заголовка, а заголовок создается по буквам.

With ActivePresentation.Slides.Add(Index:=1, _
    Layout:=ppLayoutTitleOnly).Shapes(1)

    .TextFrame.TextRange.Text = "Sample title"
    With .AnimationSettings
        .Animate = True
        .TextLevelEffect = ppAnimateByFirstLevel
        .TextUnitEffect = ppAnimateByCharacter
        .EntryEffect = ppEffectFlyFromLeft
    End With

End With

См. также

Объект AnimationSettings

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

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