Shape.Polygon

Property Polygon As Polygon

Member of Shape

The Polygon property returns an Polygon object that represents the properties of a symmetrical polygon shape.

The Polygon property returns a read-only value.

The following code example converts all symmetrical polygon shapes on the active page to five-point star polygons.

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrPolygonShape Then 
   s.Polygon.Sides = 5 
   s.Polygon.Type = cdrStar 
  End If 
 Next s 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.