Shape.Shadow (Excel)

Returns a read-only ShadowFormat object that contains shadow formatting properties for the specified shape or shapes.

Dim shp As Shape: Set shp = 
Dim sftShadow As ShadowFormat
Set sftShadow = shp.Shadow