ShapeRange.Shadow (PowerPoint)

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

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