API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.Polygon property
Allows users to access the polygon properties
Syntax:
Property Get Polygon() As Polygon
Remarks:
The Polygon property returns a Polygon object that represents the settings for a symmetrical polygon shape.
Examples:
The following VBA 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