ShapeRange.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 fftFill As FillFormat
Set fftFill = ActiveChart.OLEObjects.ShapeRange.Fill