The AutoRectangle object contains the properties of a rectangle. Rectangles, including rounded rectangles, are created with the AutoShapes collection AddRectangle method.
Derived from: AutoShape object (All methods and properties of AutoShape apply to this object.)
The following example shows how to create a rectangle.
'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
Set Rectangle = Shapes.AddRectangle( 2, 5, 7, 2)