The IsArtisticText property returns whether a text object is artistic text.
Examples:
The following VBA example displays a message box if the text object is artistic text.
Sub Test()
Dim s As Shape
Dim d As Document
Dim t As Text
Set d = CreateDocument
Set s = d.ActiveLayer.CreateArtisticText(3, 3, "This is a test")
Set t = s.Text
If t.IsArtisticText Then
MsgBox "Artistic Text"
End If
End Sub