Range.ShapeRange (Word)

Renvoie une collection ShapeRange qui représente tous les objets Shape de la plage spécifiée.

Une plage de formes peut contenir des dessins, des formes, des images, des objets OLE, des contrôles ActiveX, des objets texte et des légendes.

ActiveDocument.Content.ShapeRange.Fill.ForeColor.RGB = _ 
 RGB(255, 0, 255)