Sub Test() Dim s As Shape Set s = ActiveLayer.CreateParagraphText(0, 0, 4, 4, "Paragraph Text", , , _ "Times New Roman", 24, cdrTrue, cdrTrue, , cdrCenterAlignment)End Sub