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(:SPC_ENTITY)"
Biv.FrameBoxSetMarkerSize 1, 4
