User (Legacy) Posted August 16, 1999 Report Share Posted August 16, 1999 Here is the code that generates my graph. I cannot get the legend box to display consistently. Any suggestions? It seems to be there with size = 0 because when I look at it in browser and click legend box , something small disappears and if I click again it appears the right size. Help????? Set conn2 = Server.CreateObject("ADODB.Connection") conn2.Open("DBQ=D:\Database\SupplyEff\SuppEff.mdb;DefaultDir=D:\Database\Sup plyEff;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5; SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;") set rs = conn2.Execute(chartsqlA) set Chart2 = Server.CreateObject("ChartFX.WebServer4B") Chart2.AdoResultset(rs) Chart2.Chart3D = False Chart2.Type = Chart2.Type or CT_SHOWVALUES or CT_SERLEGEND Chart2.SerLegBox = True Chart2.OpenDataEx 65, 2, J Chart2.CloseData 65 Chart2.OpenDataEx COD_COLORS,2,1 Chart2.color(0)=RGB(0,255,0) Chart2.series(1).color=RGB(0,0,255) Chart2.CloseData COD_COLORS Chart2.Series(0).Gallery =4 Chart2.Series(1).Gallery =2 Chart2.Series(0).MarkerShape = 2 Chart2.Series(0).MarkerSize = 5 Chart2.series(0).legend = "Effectiveness" Chart2.series(1).legend= "Total Demand" Chart2.Axis(AXIS_Y).Step = 10 Chart2.Axis(AXIS_Y).Min = 70 Chart2.Axis(AXIS_Y).Max = 100 Chart2.Title(2) = "Effectiveness" Chart2.Series(1).YAxis = AXIS_Y2 Chart2.Axis(AXIS_Y).Format = "#,##0" Chart2.Axis(AXIS_Y2).Format = "#,##0" Chart2.Axis(AXIS_Y2).Step = 500 Chart2.Axis(AXIS_Y2).Min = 0 Chart2.Axis(AXIS_Y2).Max = 2000 Chart2.series(1).PointLabels = 1 Chart2.series(0).PointLabels = 1 Chart2.OpenDataEx 2, 1, 0 Chart2.Const(0) = 95 Chart2.FixLeg(0) = "Goal" Chart2.ConstantLine(0).LineStyle = 1 Chart2.ConstantLine(0).LineColor = RGB(255,0,0) Chart2.CloseData 2 Link to comment Share on other sites More sharing options...
User (Legacy) Posted August 16, 1999 Author Report Share Posted August 16, 1999 Here is the code that generates my graph. I cannot get the legend box to display consistently. Any suggestions? It seems to be there with size = 0 because when I look at it in browser and click legend box , something small disappears and if I click again it appears the right size. Help????? Set conn2 = Server.CreateObject("ADODB.Connection") conn2.Open("DBQ=D:\Database\SupplyEff\SuppEff.mdb;DefaultDir=D:\Database\Sup plyEff;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5; SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;") set rs = conn2.Execute(chartsqlA) set Chart2 = Server.CreateObject("ChartFX.WebServer4B") Chart2.AdoResultset(rs) Chart2.Chart3D = False Chart2.Type = Chart2.Type or CT_SHOWVALUES or CT_SERLEGEND Chart2.SerLegBox = True Chart2.OpenDataEx 65, 2, J Chart2.CloseData 65 Chart2.OpenDataEx COD_COLORS,2,1 Chart2.color(0)=RGB(0,255,0) Chart2.series(1).color=RGB(0,0,255) Chart2.CloseData COD_COLORS Chart2.Series(0).Gallery =4 Chart2.Series(1).Gallery =2 Chart2.Series(0).MarkerShape = 2 Chart2.Series(0).MarkerSize = 5 Chart2.series(0).legend = "Effectiveness" Chart2.series(1).legend= "Total Demand" Chart2.Axis(AXIS_Y).Step = 10 Chart2.Axis(AXIS_Y).Min = 70 Chart2.Axis(AXIS_Y).Max = 100 Chart2.Title(2) = "Effectiveness" Chart2.Series(1).YAxis = AXIS_Y2 Chart2.Axis(AXIS_Y).Format = "#,##0" Chart2.Axis(AXIS_Y2).Format = "#,##0" Chart2.Axis(AXIS_Y2).Step = 500 Chart2.Axis(AXIS_Y2).Min = 0 Chart2.Axis(AXIS_Y2).Max = 2000 Chart2.series(1).PointLabels = 1 Chart2.series(0).PointLabels = 1 Chart2.OpenDataEx 2, 1, 0 Chart2.Const(0) = 95 Chart2.FixLeg(0) = "Goal" Chart2.ConstantLine(0).LineStyle = 1 Chart2.ConstantLine(0).LineColor = RGB(255,0,0) Chart2.CloseData 2 Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.