返回或设置表示文本范围开始位置的 Long 类型值。只读。
expression.TextRangeStart
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