Object Model Reference : Classes : E : EffectDropShadow : Properties : EffectDropShadow.Feather |
Property Feather As Long
Member of EffectDropShadow
The Feather property returns or specifies 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 VBA 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 |
Copyright 2013 Corel Corporation. All rights reserved.