ShapeRange.Fill (Word)

Devuelve un objeto FillFormat que contiene las propiedades de formato de relleno de la forma especificada.

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