Object Model Reference : Classes : P : Page : Properties : 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 2013 Corel Corporation. All rights reserved.