EffectDropShadow.Feather

Property Feather As Long

The Feather property returns or sets the feathering length of a drop shadow. Values range from 0% to 100%. Low values create a more subtle feathering effect, while high values create a more pronounced effect.

The following code example applies 50% outside feathering with inverse squared edges to all drop shadows on the active page:

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrDropShadowGroupShape Then 
   With s.Effect.DropShadow 
    .FeatherType = cdrFeatherOutside 
    .FeatherEdge = cdrEdgeInverseSquared 
    .Feather = 50 
   End With 
  End If 
 Next s 
End Sub