Effect.DropShadow

Property DropShadow As EffectDropShadow

Member of Effect

The DropShadow property returns EffectDropShadow for the drop-shadow effect.

The DropShadow property returns a read-only value.

The following code example changes properties of the drop shadow applied to the active shape.

Sub Test() 
 Dim e As Effect 
 For Each e In ActiveShape.Effects 
  If e.Type = cdrDropShadow Then 
   e.DropShadow.Color.RGBAssign 255, 0, 0 
   e.DropShadow.Feather = 30 
  End If 
 Next e 
End Sub