获取一个 Long 类型的值,该值代表文本范围的长度。 此为只读属性。
语法
表达式。长度
表达 返回 TextRange2 对象的表达式。
返回值
长型
示例
以下示例在活动 PowerPoint 演示文稿中添加一个带有文本的形状,并在不旋转文本的情况下旋转该形状。
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.TextRange2.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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。