EffectEnvelope.Select

Sub Select(PresetIndex As Long)

The Select method chooses a given envelope preset.


Parameters	Description
PresetIndex	Identifies an index number that uniquely identifies a preset envelope effect

The following code 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