ShapeRange.Shadow (Excel)

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

Dim sftShadow As ShadowFormat
Set sftShadow = ActiveChart.OLEObjects.ShapeRange.Shadow