AutoPolygon Object

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.)

Properties

Fill

Line

Vertices

Example

The following example shows how to create a polygon.

Sub Main

 

 '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

 

 'Add Polygon

  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)

 

End Sub