Object Model Reference : Classes : P : Polygon : Properties : Polygon.Type
|
|
| Object Model Reference : Classes : P : Polygon : Properties : Polygon.Type |
Property Type As cdrPolygonType
Member of Polygon
The Type property returns or specifies the type of polygon.
This property returns a value of cdrPolygonType.
The following code converts, to stars, all polygons that have more than four sides.
Sub Test() |
Dim s As Shape |
For Each s In ActivePage.Shapes |
If s.Type = cdrPolygonShape Then |
If s.Polygon.Type = cdrPolygon And s.Polygon.Sides > 4 Then |
s.Polygon.Type = cdrStar |
s.Polygon.Sharpness = 1 |
End If |
End If |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.