ShapeRange.Shadow (Word)

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

Dim sre As ShapeRange: Set sre =  
Dim sftShadow As ShadowFormat
Set sftShadow = sre.Shadow