全部显示

ConvertToTextUnitEffect 方法

返回 Effect 对象，该对象代表文本动画显示的方式。

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

Effect  必选。Effect 对象。要应用于文本单元的动画效果。

unitEffect  必选。MsoAnimTextUnitEffect 类型。文本应如何动画显示。

示例

本示例在给定形状中添加一个动画，并按字符动画显示其所包含的文本。

Sub NewTextUnitEffect()
    Dim shpFirst As Shape
    Dim tmlMain As TimeLine

    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
    Set tmlMain = ActivePresentation.Slides(1).TimeLine

    tmlMain.MainSequence.ConvertToTextUnitEffect _
        Effect:=tmlMain.MainSequence.AddEffect(Shape:=shpFirst, _
            EffectID:=msoAnimEffectRandomEffects), _
        unitEffect:=msoAnimTextUnitEffectByCharacter
End Sub