Gets or sets the feather fade amount
Syntax:
Property Get Fade() As Long
Property Let Fade(ByVal Value As Long)
Remarks:
The Fade property returns or specifies the fading of a perspective drop shadow. Values range from 0% to 100%.
Examples:
The following VBA 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