InlineShape.Shadow (Word)

Returns a ShadowFormat object that represents the shadow formatting for the specified shape.

Dim sftShadow As ShadowFormat
Set sftShadow = ActiveDocument.Range.InlineShapes(1).Shadow