在HTML里利用OWC做图表

Command1_Click()

    'Create arrays for the x-values and the y-values
'为X轴数据和Y轴数据定义几个数组
    Dim xValues, yValues1, yValues2
    'xValues = Array("Beverages", "Condiments", "Confections", _
    '               "Dairy Products", "Grains & Cereals", _
    '               "Meat & Poultry", "Produce", "Seafood")
xValues = Array("饮料", "调味品", "糖果", _
                    "乳制品", "鱼肉", _
                    "家禽肉类", "农作物", "海产食品")

yValues1 = Array(104737, 50952, 78128, 117797, 52902, 80160, 47491, _
                     62435)
    yValues2 = Array(20000, 15000, 36000, 56000, 40000, 18000, 20000, _
                     33000)

    'Create a new chart
'创建一个新的图表对象
    Dim oChart,chConstants
    ChartSpace1.Clear '清空图表
    ChartSpace1.Refresh '重绘图表
    Set oChart = ChartSpace1.Charts.Add '新建一个空图表
Set chConstants = ChartSpace1.Constants '在 VBScript 中使用命名常量

    'Add a title to the chart
    oChart.HasTitle = True
    oChart.Title.Caption = "Sales Per Category"

    'Add a series to the chart with the x-values and y-values
    'from the arrays and set the series type to a column chart
    Dim oSeries
    Set oSeries = oChart.SeriesCollection.Add
    With oSeries
        .Caption = "1995"
        .SetData chConstants.chDimCategories, chConstants.chDataLiteral, xValues
        .SetData chConstants.chDimValues, chConstants.chDataLiteral, yValues1
        .Type = chConstants.chChartTypeColumnClustered
    End With

    'Add another series to the chart with the x-values and y-values
    'from the arrays and set the series type to a line chart
    Set oSeries = oChart.SeriesCollection.Add
    With oSeries
        .Caption = "1996"
        .SetData chConstants.chDimCategories, chConstants.chDataLiteral, xValues
        .SetData chConstants.chDimValues, chConstants.chDataLiteral, yValues2
        .Type = chConstants.chChartTypeLineMarkers
    End With

    'Add a value axis to the right of the chart for the second series
    oChart.Axes.Add oChart.Axes(chConstants.chAxisPositionLeft).Scaling,chConstants.chAxisPositionRight, chConstants.chValueAxis

    'Format the Value Axes
    oChart.Axes(chConstants.chAxisPositionLeft).NumberFormat = "$#,##0"
oChart.Axes(chConstants.chAxisPositionRight).NumberFormat = "0"
oChart.Axes(chConstants.chAxisPositionLeft).MajorUnit = 20000
    oChart.Axes(chConstants.chAxisPositionRight).MajorUnit = 20000

    'Show the legend at the bottom of the chart
    oChart.HasLegend = True
    oChart.Legend.Position = chLegendPositionBottom

End Sub
Private Sub Command2_Click()

    'Set up the DataSourceControl for the Chartspace
    Dim rsd, chConstants
    Set chConstants = ChartSpace1.Constants
    DataSourceControl1.ConnectionString = _
        "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
        "DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"
    Set rsd = DataSourceControl1.RecordsetDefs.AddNew( _
             "Select * from [Category Sales for 1995]", 3)
    With ChartSpace1
        .Clear
        .Refresh
        .DataSource = DataSourceControl1
        .DataMember = rsd.Name
    End With

    'This Chartspace will contain 2 charts. Make the layout so that the
    'charts are positioned horizontally
    ChartSpace1.ChartLayout = chConstants.chChartLayoutHorizontal

    'Create a new bar chart from the query
    Dim oBarChart
    Set oBarChart = ChartSpace1.Charts.Add
    With oBarChart
        .Type = chConstants.chChartTypeBarClustered
        .SetData chConstants.chDimCategories, 0, 0  'Categories are first field
        .SetData chConstants.chDimValues, 0, 1      'Values are second field

        'Format the value axis for the bar chart so that it
        'shows values in thousands (i.e., 45000 displays as 45) and
        'in increments of 25000. Remove the gridlines
        With .Axes(chConstants.chAxisPositionBottom)
            .NumberFormat = "0,"
            .MajorUnit = 25000
            .HasMajorGridlines = False
        End With

        'Change the color of the series and the plot area
        .SeriesCollection(0).Interior.Color = RGB(150, 0, 150)
        .PlotArea.Interior.Color = RGB(240, 240, 10)
    End With

    'Create a new exploded pie chart from the query
    Dim oPieChart
    Set oPieChart = ChartSpace1.Charts.Add
    With oPieChart
        .Type = chConstants.chChartTypePie
        .SetData chConstants.chDimCategories, 0, 0  'Categories are first field
        .SetData chConstants.chDimValues, 0, 1      'Values are second field
        .SeriesCollection(0).Explosion = 20

        'Add a legend to the bottom of the pie chart
        .HasLegend = True
        .Legend.Position = chConstants.chLegendPositionBottom

        'Add a title to the chart
        .HasTitle = True
        .Title.Caption = "Sales by Category for 1995"
        .Title.Font.Bold = True
        .Title.Font.Size = 11

        'Make the chart width 50% the size of the bar chart's width
        .WidthRatio = 50

        'Show data labels on the slices as percentages
        With .SeriesCollection(0).DataLabelsCollection.Add
            .HasValue = False
            .HasPercentage = True
            .Font.Size = 8
            .Interior.Color = RGB(255, 255, 255)
        End With

    End With

End Sub
Private Sub Command3_Click()

   'Dynamically add a spreadsheet control to the form
   Dim chConstants
   Set chConstants = ChartSpace1.Constants

   'Fill the Sheet with data
   With oSheet
        .Range("A1:A10").Formula = "=Row()"
        .Range("B1:B10").Formula = "=A1^2"
        .Range("A12").Formula = "=Max(A1:A10)"
        .Range("B12").Formula = "=Max(B1:B10)"
   End With

   'Create an xy-scatter chart using the data in the spreadsheet
   Dim oChart
   With ChartSpace1
        .Clear
        .Refresh
        .DataSource = oSheet.object
        Set oChart = .Charts.Add
        oChart.Type = chConstants.chChartTypeScatterSmoothLineMarkers
        oChart.SetData chConstants.chDimXValues, 0, "a1:a10"
        oChart.SetData chConstants.chDimYValues, 0, "b1:b10"
   End With

   With oChart
        'Display the Axes Titles and
        'set the major units for the axes
        With .Axes(chConstants.chAxisPositionBottom)
            .HasTitle = True
            .Title.Caption = "X"
            .Title.Font.Size = 8
            .MajorUnit = 1
        End With
        With .Axes(chConstants.chAxisPositionLeft)
            .HasTitle = True
            .Title.Caption = "X Squared"
            .Title.Font.Size = 8
            .MajorUnit = 10
        End With

        'Set the maximum and minimum axis values
        .Scalings(chConstants.chDimXValues).Maximum = oSheet.Range("A12").Value
        .Scalings(chConstants.chDimXValues).Minimum = 1
        .Scalings(chConstants.chDimYValues).Maximum = oSheet.Range("B12").Value

        'Change the marker and line styles for the series
        With .SeriesCollection(0)
            .Marker.Style = chConstants.chMarkerStyleDot
            .Marker.Size = 6
            .Line.Weight = 1
            .Line.Color = RGB(255, 0, 0)
        End With
   End With
End Sub
</SCRIPT>
</HEAD>
<BODY>

<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 codebase=”msowc.dll” style="width:100%;height:350;border:#ffffff 0px solid"></object>

<object id=DataSourceControl1 classid=CLSID:0002E55B-0000-0000-C000-000000000046></object>

<object id=oSheet classid=CLSID:0002E559-0000-0000-C000-000000000046 style="width:0;height:0;border:#ffffff 0px solid"></object>

<INPUT TYPE="button" language="vbscript" onclick="Command1_Click()" value="使用数组">
<INPUT TYPE="button" language="vbscript" onclick="Command2_Click()" value="使用ado记录机">
<INPUT TYPE="button" language="vbscript" onclick="Command3_Click()" value="使用电子表格">
</BODY>
</HTML>