Remarks:
The Shapes property returns the collection of shapes on a page. The following code fills each object on the active page with the color assigned to the layer it reside on (that is, the layer-override color). [code] Sub Test() Dim s As Shape For Each s In ActivePage.Shapes s.Fill.ApplyUniformFill s.Layer.Color Next s End Sub [/code]