Gets or sets the feather type with a cdrDSType type
Syntax:
Property Get Type() As cdrDropShadowType
Property Let Type(ByVal Value As cdrDropShadowType)
Remarks:
The Type property returns or specifies the type of the drop shadow. This property returns cdrDropShadowType.
Examples:
The following VBA example selects all shapes with flat drop shadows on the page.
Sub Test()
Dim s As Shape
Dim sr As New ShapeRange
For Each s In ActivePage.Shapes
  If s.Type = cdrDropShadowGroupShape Then

 If s.Effect.DropShadow.Type = cdrDropShadowFlat Then


sr.Add s.Previous ' To select the control shape


sr.Add s ' To select the shadow bitmap itself

 End If
  End If
Next s
sr.CreateSelection 
End Sub