EffectEnvelope.Mode

The Mode property returns or sets the mapping mode by which an object is fitted to an envelope.

The Mode property returns a value of cdrEnvelopeMode. There are four mapping modes: Horizontal, Original, Putty, and Vertical.

The following code example selects all shapes to which envelopes with the Original mode have been applied:

Sub Test() 
 Dim s As Shape, eff As Effect 
 Dim sr As New ShapeRange 
 For Each s In ActivePage.Shapes 
  For Each eff In s.Effects 
   If eff.Type = cdrEnvelope Then 
    If eff.Envelope.Mode = cdrEnvelopeOriginal Then sr.Add s 
    Exit For 
   End If 
 Next eff 
 Next s 
 sr.CreateSelection 
End Sub