Sub Test() Dim sText As Shape, eff As Effect Set sText = ActiveLayer.CreateArtisticText(1.5, 5, "Twister") sText.Text.FontProperties.Size = 150 Set eff = sText.CreateTwisterDistortion(0, 0, 0) eff.Distortion.Twister.Angle = -450End Sub