ShapeRange.Fill (Word)

Retorna um objeto FillFormat que contém as propriedades de formatação de preenchimento para a forma especificada. Somente leitura.

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