Sub Test() Dim s As Shape Dim x As Double, y As Double x = ActivePage.SizeWidth / 2 y = ActivePage.SizeHeight / 2 Set s = ActiveLayer.CreateArtisticText(x, y, "A Text String" & vbCr & _ "With Two Lines") s.Text.AlignProperties.Alignment = cdrCenterAlignmentEnd Sub