利用MSCHART画图的一段代码

<!– here we are calling the lpk file.  this lpk file
was created using the same method explained in the article–>

<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331"
id="microsoft_licensed_class_manager_1_0">
   <param name="lpkpath" value="mschart5.lpk">
</object>

<– here is where we are actually "instantiating" the
activex control.  i downloaded the file mschart5.cab from
microsofts website.  it has been digitally signed. –>

<object id="mschart1" width=100% height=95%
classid="clsid:31291e80-728c-11cf-93d5-0020af99504a"
  codebase="mschart5.cab">
</object>

<script language="vbscript">
now, lets set the chart properties…!!!

this sets the chart to a line graph…
mschart1.charttype = 3

set the color and width of the line
this sets the pen color to black (0,0,0)
and width to 50 pixels.
mschart1.plot.seriescollection(1).pen.vtcolor.set 0,0,0
mschart1.plot.seriescollection(1).pen.width = 50

this sets the charts labels to various formats,
fonts, and sizes.
for i = 1 to mschart1.plot.axis(1).labels.count
   format the chart labels to currency
   mschart1.plot.axis(1).labels(i).format = "$0,###"
   
   set the font to tahoma
   mschart1.plot.axis(1).labels(i).vtfont.name = "tahoma"
   
   set the font size to 10pt
   mschart1.plot.axis(1).labels(i).vtfont.size = 10
next

this sets the # of rows in the chart
mschart1.rowcount = 5;

this sets the number of columns per row.
mschart1.columncount = 2

this indicates to show the label
mschart1.showlegend = true

for x = 1 to 5  the number of rows we have
    this sets what current row we are editing
    mschart1.row = x
    
      this sets the rows label
    mschart1.rowlabel = "row " & x

    this plots the points for both columns (1 and 2)
    for the current row (x).  the value being
    plotted is x*5 and x*10    
    call mschart1.datagrid.setdata(x, 1, x*5,nullflag)
    call mschart1.datagrid.setdata(x, 2, x*10,nullflag)
next

</script>