Table of contents
Collapse the table of content
Expand the table of content

TextRange2.Length Property (Office)

office 365 dev account|Last Updated: 6/12/2017
1 Contributor

Get a Long that represents the length of a text range. Read-only.


expression. Length

expression An expression that returns a TextRange2 object.

Return Value



This example adds a shape with text and rotates the shape without rotating the text in the active PowerPoint presentation.

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, _ 
 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 

See also


TextRange2 Object

Other resources

TextRange2 Object Members

© 2018 Microsoft