Sub Test() Dim e As Effect For Each e In ActiveShape.Effects If e.Type = cdrEnvelope Then e.Envelope.Select 5 End If Next eEnd Sub