EffectEnvelope.KeepLines

Property KeepLines As Boolean

The KeepLines property returns or sets whether straight line segments are warped in the envelope. If the KeepLines property is True, the envelope effect keeps its lines straight.

The following code example creates a text object, applies an envelope effect to it, and then specifies that straight lines are to be preserved in the distorted text object:

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 = True 
End Sub