The AutoPolygon object contains the properties of a polygon. Polygons are created with the AutoShapes collection AddPolygon method.
Derived from: AutoShape object (All methods and properties of AutoShape apply to this object.)
The following example shows how to create a polygon.
'Declares GrapherApp as an object
Dim GrapherApp As Object
'Creates an instance of the Grapher Application object
'and assigns it to the variable named "GrapherApp"
Set GrapherApp = CreateObject("Grapher.Application")
'Make Grapher visible
GrapherApp.Visible = True
'Declare Docs as Object
Dim Docs As Object
'Assigns the Documents collection to
'the variable named "Docs"
Set Docs = GrapherApp.Documents
'Declare Plot As Object
Dim Plot As Object
'Creates a new plot window and assigns it
'to the variable named "Plot"
Set Plot = Docs.Add(grfPlotDoc)
'Declare Shapes As Object
Dim Shapes As Object
'Assigns the AutoShapes collection to
'the variable named "Shapes"
Set Shapes = Plot.Shapes
Dim Polygon As Object
Dim PolygonCoords(5) As Double
PolygonCoords(0) = 4: PolygonCoords(1) = 1
PolygonCoords(2) = 7: PolygonCoords(3) = 3
PolygonCoords(4) = 2: PolygonCoords(5) = 6
Set Polygon = Shapes.AddPolygon(PolygonCoords)