返回或设置表示文本范围长度的 Long 类型值。只读。
expression.TextRangeLength
expression 必选。该表达式返回“应用于”列表中的对象之一。
本示例添加一个包含文本的形状,并旋转该形状而保持文本静止。
Sub SetTextRange() Dim shpStar As Shape Dim sldOne As Slide Dim effNew As Effect Set sldOne = ActivePresentation.Slides(1) Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _ Left:=32, Top:=32, Width:=300, Height:=300) shpStar.TextFrame.TextRange.Text = "Animated shape." Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _ EffectId:=msoAnimEffectPath5PointStar, Level:=msoAnimateTextByAllLevels, _ Trigger:=msoAnimTriggerAfterPrevious) With effNew If .TextRangeStart = 0 And .TextRangeLength > 0 Then With .Behaviors.Add(Type:=msoAnimTypeRotation).RotationEffect .From = 0 .To = 360 End With .Timing.AutoReverse = msoTrue End If End With End Sub