Shape.Shadow (PowerPoint)

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

Dim sftShadow As ShadowFormat
Set sftShadow = ActivePresentation.Slides(1).Shapes(1).Shadow