EffectDropShadow.Fade

Property Fade As Long

The Fade property returns or sets the fading of a perspective drop shadow. Values range from 0% to 100%.

The following code example sets the fading of every perspective shadow to 80%:

Sub Test() 
 Dim s As Shape, ds As EffectDropShadow 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrDropShadowGroupShape Then 
   Set ds = s.Effect.DropShadow 
   If ds.Type <> cdrDropShadowFlat Then 
    ds.Opacity = 100 
    ds.Fade = 80 
   End If 
  End If 
 Next s 
End Sub