Shape.Text

Property Text As Text

Member of Shape

The Text property returns a Text object that represents the properties of a text shape.

The Text property returns a read-only value.

The following code example displays the type of the text:

Sub Test() 
 Dim s As Shape 
 Dim TextType As String 
 Set s = ActiveLayer.CreateArtisticText(1, 2, "This is a shape.") 
 s.Text.ConvertToParagraph 
 Select Case s.Text.Type 
  Case 0 
   TextType = "Artistic Text" 
  Case 1 
   TextType = "Paragraph Text" 
  Case 2 
   TextType = "Artistic Fitted Text" 
  Case 3 
   TextType = "Paragraph Fitted Text" 
 End Select 
 MsgBox TextType 
End Sub