Page.Shapes

Property Shapes As Shapes

Member of Page

The Shapes property returns the collection of shapes on a page.

The Shapes property returns a read-only value.

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):

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  s.Fill.ApplyUniformFill s.Layer.Color 
 Next s 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.