AutoTernaryClassPlot Object

The AutoTernaryClassPlot object contains ternary class plot options.

Derived from: AutoTernaryPlot (All methods and properties of AutoTernaryPlot apply to this object.)

Properties

ClassCol

ClassSymbol

DefaultSymSize

DisplayLegend

Gradient

GradientSymFill

GradientSymLine

IncSymSize

Method

NumberOfClasses

StartSymSize

UseIncrementalSymSize

Methods

AddClass

DeleteAllClasses

DeleteClass

ResetNamedClasses

Remarks

Multiple ternary class plots are created when a Durov class or Piper class graph is created. When changing plot properties via automation, each ternary plot must be modified individually. See AddDurovClassGraph, AddextendedDurovClassGraph, and AddPiperClassGraph for examples of setting the references to the various plots.

Example

This example shows how to use the AutoTernaryClassPlot object.

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

 

 'Declares Plot as an object

  Dim Plot As Object

 

 'Creates a plot document in Grapher and

 'assigns it to the variable named "Plot"

  Set Plot = GrapherApp.Documents.Add(grfPlotDoc)

 

 'Declares Shapes as an object

  Dim Shapes As Object

 

 'Assigns the AutoShapes collection to

 'the variable named "Shapes"

  Set Shapes = Plot.Shapes

 

 'Declares Graph1 as an Object

  Dim Graph1 As Object

 

 'Creates a ternary class graph and assigns it

 'to the variable named "Graph1"

  Set Graph1 = Shapes.AddTernaryClassGraph(GrapherApp.Path + "/samples/ternary class.dat")

 

 'Declares TernaryClassPlot1 as Object

  Dim TernaryClassPlot1 As Object

 

 'Assigns the plot to the variable named "TernaryClassPlot1"

  Set TernaryClassPlot1 = Graph1.Plots(1)

 

End Sub