Help using Base SAS procedures

JSL OLE: Display Legend in Bivariant

Reply
New Contributor
Posts: 3

JSL OLE: Display Legend in Bivariant

I can't figure out how to display a legend in my bivariant chart through OLE.  There is very little documentation in JSL OLE (I'm I the only one doing this?).  Can someone point me in the right direction?  In it's current state, it will display the graph and color code by column.  All I need to do is display the legend.

Here is my code (VBscript):

'Initialize JMP
Dim MyJMP, JMPDoc, DT, DT2, WidthTable, FrameBox
Set MyJMP = CreateObject("JMP.Application")
MyJMP.Visible = true
Set JMPDoc = MyJMP.OpenDocument("MyFile.csv")

'Convert document to datatable
Set DT = JMPDoc.GetDataTable

'Select the width data (High and Low)
DT.SelectRowsWhere "CHART_SUBSET",rowSelectEquals, rowSelectExtendCurrent,"TARGET=HIGH"
DT.SelectRowsWhere "CHART_SUBSET",rowSelectEquals, rowSelectExtendCurrent,"TARGET=LOW"

Set WidthTable = DT.subset
WidthTable.ColorByColumn("SPC_ENTITY")
WidthTable.MarkerByColumn("SPC_ENTITY")

'*************************

'Create Bivariant Chart

'*************************
Dim Biv
Set Biv = WidthTable.Document.CreateBivariate
Biv.LaunchAddY("SPC_CHART_VALUE")
Biv.LaunchAddX("SPC_TXN_DATE")
Biv.LaunchAddBy("SPC_CHART_SUBSET")

Biv.FitLine
Biv.Launch

FrameBox = Biv.GetGraphicItemByType("frame box", 1)


Biv.FrameBoxAddGraphicsScript 1, "Row Legend(Smiley FrustratedPC_ENTITY)"
Biv.FrameBoxSetMarkerSize 1, 4

Trusted Advisor
Posts: 1,301

Re: JSL OLE: Display Legend in Bivariant

To attract the proper audience try posting you question in the forum for JMP software.

Ask a Question
Discussion stats
  • 1 reply
  • 184 views
  • 0 likes
  • 2 in conversation