EffectLens.Rate

Property Rate As Long

The Rate property returns or sets the strength of the lens effect. Values range from 0% to 100%.

The Rate property is available only for the following types of lenses: Brighten, Color add, Color limit, Fish eye, and Transparency.

The following code example selects all shapes with a Transparency lens and whose transparency level is greater than 80%.

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 = cdrLens Then 
    If eff.Lens.Type = cdrLensTransparency Then 
     If eff.Lens.Rate > 80 Then sr.Add s 
    End If 
    Exit For 
   End If 
  Next eff 
 Next s 
 sr.CreateSelection 
End Sub