Shape.Fill (Excel)

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

Dim shp As Shape: Set shp = 
Dim fftFill As FillFormat
Set fftFill = shp.Fill