Shape.Text

Property Text As Text

Member of Shape

The Text property returns a Text object that represents the settings for a text shape.

The Text property returns a read-only value.

The following VBA 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