ShapeRange.Fill (Word)

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

Dim sre As ShapeRange: Set sre =  
Dim fftFill As FillFormat
Set fftFill = sre.Fill