ShapeRange.Fill (Word)

Renvoie un objet FillFormat qui contient les propriétés de mise en forme du remplissage pour la forme spécifiée.

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