ShapeRange.Fill (PowerPoint)

Returns a FillFormat object that contains fill formatting properties for the specified shape.

Dim fftFill As FillFormat
Set fftFill = ActivePresentation.Slides(1).Shapes(1).Ungroup.Fill