Selects an index for the envelope
Syntax:
Sub Select(ByVal PresetIndex As Long)
Parameters:
Name Type Description
PresetIndex
Long
Remarks:
The Select method chooses a given envelope preset.
Examples:
The following VBA example places a text object in a heart-shaped envelope.
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(1)
eff.Envelope.Select 12 
End Sub