Selection.ShapeRange (Word)

Returns a ShapeRange collection that represents all the Shape objects in the selection.

The shape range can contain drawings, shapes, pictures, OLE objects, ActiveX controls, text objects, and callouts.

Selection.ShapeRange.Shadow.Type = msoShadow6