Sub Test() Dim s As Shape, eff As Effect Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text") With s.Text.FontProperties .Name = "Arial Black" .Size = 150 End With Set eff = s.CreateEnvelope(3) eff.Envelope.KeepLines = TrueEnd Sub