TextUnitEffect Property

TextUnitEffect property as it applies to the AnimationSettings object.

PpTextUnitEffect

expression.TextUnitEffect

*expression   * Required. An expression that returns an AnimationSettings object.

Remarks

For the TextUnitEffect property setting to take effect, the TextLevelEffect property for the specified shape must have a value other than ppAnimateLevelNone or ppAnimateByAllLevels, and the Animate property must be set to True.

TextUnitEffect property as it applies to the EffectInformation object.

MsoAnimTextUnitEffect

expression.TextUnitEffect

*expression   * Required. An expression that returns an EffectInformation object.

Example

As it applies to the AnimationSettings object.

This example adds a title slide and title text to the active presentation and sets the title to be built letter by letter.

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

Applies to | AnimationSettings Object | EffectInformation Object