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