AutoLegends Collection

The AutoLegends collection allows access to all legends in a graph.

Properties

Application

Count

Parent

Method

Item

Example

The following script demonstrates how the AutoLegends collection is used.

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

 

 'Makes Grapher visible

  GrapherApp.Visible = True

 

 'Creates a plot document in Grapher and assigns

 'it to the variable named "Plot"

  Set Plot = GrapherApp.Documents.Add(grfPlotDoc)

 

 'Declares Graph as an object

  Dim Graph As Object

 

'Create line plot graph

 Set Graph = Plot.Shapes.AddLinePlotGraph("C:\Program Files\Golden Software\Grapher\Samples\bar chart orientations.dat",1,2)

 

'Reference the Legend Collection

Set LegColl = Graph.Legends

 

End Sub