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 TextTypeEnd Sub