您目前已離線,請等候您的網際網路重新連線

如何使用與 Visual Basic 的 [圖表] 網路元件

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本:235885
依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此,本文係依「現狀」提供,不會再更新。
結論
本文提供如何使用 Office 圖表 Web 元件 Visual Basic 表單上以視覺化方式檢視相關的資料的概觀。更具體地說本文的程式碼說明範例所如何執行下列動作:
  • 陣列資料可用於圖表中。
  • 用於圖表資料的 ADO 資料錄集。
  • 對於圖表中使用試算表資料。
  • 在單一圖表空間中建立多個圖表。
  • 建立-以及-一個組合圖。

  • 設定不同的圖表元件,例如座標軸、 datalabels、 數列、 plotareas 與更多的格式。
其他相關資訊

建立範例的步驟

  1. 在 Visual Basic 中啟動新的標準 EXE 專案。預設會建立 Form1。
  2. 按一下 [專案] 功能表上的 [元件]。選取 [Microsoft Office Web 元件 9.0,然後按一下 [確定]
  3. 將下列控制項加入至表單中,以指示屬性:

    型別名稱標題
    圖表空間ChartSpace1-
    DataSourceControlDataSourceControl1-
    指令按鈕Command1使用陣列
    指令按鈕Command2使用 ADO 資料錄集
    指令按鈕Command3使用試算表


    注意: 大小圖表空間控制項在您的表單上,讓它佔用量表單盡可能仍然允許在表單上其他控制項時。
  4. 將下列程式碼加入 Form1 的模組:
    Private Sub Command1_Click()    'Create arrays for the x-values and the y-values    Dim xValues As Variant, yValues1 As Variant, yValues2 As Variant    xValues = Array("Beverages", "Condiments", "Confections", _                    "Dairy Products", "Grains & Cereals", _                    "Meat & Poultry", "Produce", "Seafood")    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 As WCChart    ChartSpace1.Clear    ChartSpace1.Refresh    Set oChart = ChartSpace1.Charts.Add        '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 As WCSeries    Set oSeries = oChart.SeriesCollection.Add    With oSeries        .Caption = "1995"        .SetData chDimCategories, chDataLiteral, xValues        .SetData chDimValues, chDataLiteral, yValues1        .Type = 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 chDimCategories, chDataLiteral, xValues        .SetData chDimValues, chDataLiteral, yValues2        .Type = chChartTypeLineMarkers    End With        'Add a value axis to the right of the chart for the second series    oChart.Axes.Add oChart.Axes(chAxisPositionLeft).Scaling, _        chAxisPositionRight, chValueAxis    'Format the Value Axes    oChart.Axes(chAxisPositionLeft).NumberFormat = "$#,##0"    oChart.Axes(chAxisPositionRight).NumberFormat = "0"    oChart.Axes(chAxisPositionLeft).MajorUnit = 20000    oChart.Axes(chAxisPositionRight).MajorUnit = 20000        'Show the legend at the bottom of the chart    oChart.HasLegend = True    oChart.Legend.Position = chLegendPositionBottomEnd SubPrivate Sub Command2_Click()    'Set up the DataSourceControl for the Chartspace    Dim rsd As RecordsetDef    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 = chChartLayoutHorizontal        'Create a new bar chart from the query    Dim oBarChart As WCChart    Set oBarChart = ChartSpace1.Charts.Add    With oBarChart        .Type = chChartTypeBarClustered        .SetData chDimCategories, 0, 0  'Categories are first field        .SetData 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(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 As WCChart    Set oPieChart = ChartSpace1.Charts.Add    With oPieChart        .Type = chChartTypePie        .SetData chDimCategories, 0, 0  'Categories are first field        .SetData 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 = 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 SubPrivate Sub Command3_Click()   'Dynamically add a spreadsheet control to the form   Dim oSheet As Spreadsheet   Me.Controls.Add "OWC.Spreadsheet", "Sheet"   Set oSheet = Me!Sheet      '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 As WCChart   With ChartSpace1        .Clear        .Refresh        .DataSource = oSheet.object        Set oChart = .Charts.Add        oChart.Type = chChartTypeScatterSmoothLineMarkers        oChart.SetData chDimXValues, 0, "a1:a10"        oChart.SetData chDimYValues, 0, "b1:b10"   End With      With oChart        'Display the Axes Titles and        'set the major units for the axes        With .Axes(chAxisPositionBottom)            .HasTitle = True            .Title.Caption = "X"            .Title.Font.Size = 8            .MajorUnit = 1        End With        With .Axes(chAxisPositionLeft)            .HasTitle = True            .Title.Caption = "X Squared"            .Title.Font.Size = 8            .MajorUnit = 10        End With                'Set the maximum and minimum axis values        .Scalings(chDimXValues).Maximum = oSheet.Range("A12").Value        .Scalings(chDimXValues).Minimum = 1        .Scalings(chDimYValues).Maximum = oSheet.Range("B12").Value                'Change the marker and line styles for the series        With .SeriesCollection(0)            .Marker.Style = chMarkerStyleDot            .Marker.Size = 6            .Line.Weight = 1            .Line.Color = RGB(255, 0, 0)        End With   End With      'Remove the spreadsheet   Me.Controls.Remove "Sheet"   End Sub					
    注意: 您可能需要修改連接字串 Command2_Click 事件中的,使其正確地參照至預設] 安裝到 Visual Basic 目錄的 NWIND.MDB 路徑:
       DataSourceControl1.ConnectionString = _        "DRIVER={Microsoft Access Driver (*.mdb)}; " & _        "DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"					
  5. 按一下 [專案] 功能表上的 [內容]。選取 [製作] 索引標籤,取消選取 [移除未使用的 ActiveX 控制項有關的資訊,然後按一下 [確定]
  6. 按下 F5 鍵以執行程式。
  7. 按一下 [使用陣列] 按鈕。建立具有兩個數值座標軸的組合圖。圖表使用了從陣列的資料。
  8. 按一下 [使用 ADO 資料錄集] 按鈕。兩個圖表就會建立在圖表空間 ; 橫條圖以及分裂式的圓形圖資料標籤中。圖表空間使用一個 DataSourceControl 其資料,並且 [DataSourceControl 參考 Access 資料庫中的透過 ADO 連線。
  9. 按一下 [使用試算表] 按鈕。散佈圖會建立與儲存格中的公式使用試算表控制項,作為其資料。試算表控制項是以動態方式加入和移除執行階段。
圖表圖形圖形 owc 圖表空間

警告:本文為自動翻譯

內容

文章識別碼:235885 - 最後檢閱時間:07/13/2004 14:56:20 - 修訂: 1.1

Microsoft Office Chart Component 9.0, run time

  • kbmt kbhowto KB235885 KbMtzh
意見反應
var Route = "76500"; var Ctrl = ""; document.write("