PowerPoint VBA教程:ConvertToTextUnitEffect方法

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

expression.ConvertToTextUnitEffect(Effect, unitEffect)

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

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

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

MsoAnimTextUnitEffect 可以是下列 MsoAnimTextUnitEffect 类型常数之一。
msoAnimTextUnitEffectByCharacter
msoAnimTextUnitEffectByParagraph
msoAnimTextUnitEffectByWord
msoAnimTextUnitEffectMixed

VBA示例

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


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

上页:PowerPoint VBA教程:ConvertToShape方法 下页:PowerPoint VBA教程:Copy方法

PowerPoint VBA教程:ConvertToTextUnitEffect方法

PowerPoint VBA教程:Copy方法 PowerPoint VBA教程:CreateNewDocument方法
PowerPoint VBA教程:CustomDrop方法 PowerPoint VBA教程:CustomLength方法
PowerPoint VBA教程:Cut方法 PowerPoint VBA教程:Delete方法
PowerPoint VBA教程:DeleteText方法 PowerPoint VBA教程:DiscardConflict Method
PowerPoint VBA教程:Distribute方法 PowerPoint VBA教程:DoVerb方法
PowerPoint VBA教程:DrawLine方法 PowerPoint VBA教程:Duplicate方法
PowerPoint VBA教程:EndConnect方法 PowerPoint VBA教程:EndDisconnect方法
PowerPoint VBA教程:EndNamedShow方法 PowerPoint VBA教程:EndReview方法
PowerPoint VBA教程:EraseDrawing方法 PowerPoint VBA教程:Exit方法
PowerPoint VBA教程:Export方法 PowerPoint VBA教程:Find方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号