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

文章翻譯 文章翻譯
文章編號: 235885 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

本文提供如何使用 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 = chLegendPositionBottom
    
    End Sub
    
    Private 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 Sub
    
    Private 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. 按一下 [使用試算表] 按鈕。散佈圖會建立與儲存格中的公式使用試算表控制項,作為其資料。試算表控制項是以動態方式加入和移除執行階段。

屬性

文章編號: 235885 - 上次校閱: 2004年7月13日 - 版次: 1.1
這篇文章中的資訊適用於:
  • Microsoft Office Chart Component 9.0, run time
關鍵字:?
kbmt kbhowto KB235885 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:235885
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此,本文係依「現狀」提供,不會再更新。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com