ShapeRange.Shadow (Word)

Devuelve un objeto ShadowFormat que representa el formato de sombreado de la forma especificada.

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