Gets or sets the mode of type cdrEnvelopeMode for the envelope
Syntax:
Property Get Mode() As cdrEnvelopeMode
Property Let Mode(ByVal Value As cdrEnvelopeMode)
Remarks:
The Mode property returns or specifies 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.
Examples:
The following VBA 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