Ellipse Object
The Ellipse object has been deprecated. The AddEllipse method now returns a Polygon object.
The Ellipse object contains the properties of an ellipse. Ellipses are created with the AddEllipse method of the Shapes collection.
Derived from: Shape object (All methods and properties of Shape apply to this object.)
The following table provides all the properties of the Ellipse object.
Property |
Description |
Returns the fill format object. It is a read-only property. |
|
Returns the line format object. It is a read-only property. |
Example
The following script demonstrates how the Ellipse object is used in reference to the Shapes object.
Sub Main
'Declares SurferApp as an object
Dim SurferApp As Object
'Creates an instance of the Surfer Application object and assigns
'it to the variable named "SurferApp"
Set SurferApp = CreateObject("Surfer.Application")
'Makes Surfer visible
SurferApp.Visible = True
'Declares Plot as an object
Dim Plot As Object
'Creates a plot document in Surfer and assigns it to the variable
'named "Plot"
Set Plot = SurferApp.Documents.Add(srfDocPlot)
'Declares Shapes as an object
Dim Shapes As Object
'Assigns the Shapes collection to the variable named "Shapes"
Set Shapes = Plot.Shapes
'Declares Ellipse as an object
Dim Ellipse As Object
'Creates an ellipse and assigns it to the variable named "Ellipse"
Set Ellipse = Shapes.AddEllipse(5,7,6,10)
End Sub