ShapeRange.Shadow (Word)

Retorna um objeto ShadowFormat que representa a formatação de sombra para a forma especificada.

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