現在オフラインです。再接続するためにインターネットの接続を待っています

グラフ Web コンポーネントは Visual Basic を使用するには、方法

重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。

235885
サポート期間が終了した「サポート技術情報」資料に関する免責事項
この資料は、マイクロソフトでサポートされていない製品について記述したものです。そのため、この資料は現状ベースで提供されており、今後更新されることはありません。
概要
Visual Basic フォーム上で、Office のグラフ Web コンポーネントを使用して関連データを視覚化することができますの概要を紹介します。具体的には、この資料のコードでは、次の作業を行う方法例です。
  • 配列のデータのグラフを使用します。
  • グラフのデータは、ADO レコード セットを使用します。
  • グラフをワークシート データを使用します。
  • 1 つのグラフに複数のグラフを作成します。
  • 組み合わせグラフ作成- と -。

  • 軸、データ ラベル、データ系列、および plotareas などの別のグラフ コンポーネントの書式を設定します。
詳細

サンプルの作成手順

  1. Visual Basic で、新しい標準 EXE プロジェクトを起動します。デフォルトで Form1 が作成されます。
  2. クリックしてください。 コンポーネント で、 プロジェクト メニューです。選択 Microsoft Office Web コンポーネント 9.0 クリックして [OK].
  3. 次のコントロールをフォームに示されたプロパティを追加します。

    種類名前キャプション
    グラフChartSpace1-
    データ ソース コントロールDataSourceControl1-
    コマンド ボタンCommand1配列を使用します。
    コマンド ボタンCommand2ADO レコード セットを使用します。
    コマンド ボタン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					
    メモNWIND のパスを正しく参照できるように Command2_Click イベント内の接続文字列を変更する必要があります。MDB を Visual Basic ディレクトリにはデフォルトでインストールされます。
       DataSourceControl1.ConnectionString = _        "DRIVER={Microsoft Access Driver (*.mdb)}; " & _        "DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"					
  5. クリックしてください。 プロパティ で、 プロジェクト メニューです。選択、 確認 タブで、選択を解除 ActiveX の使用していないコントロールについての情報を削除します。 クリックして [OK].
  6. キーを押して、 F5 キー プログラムを実行するには、[キー] をクリックします。
  7. クリックして、 配列を使用します。 ボタン クリックします。2 つの値軸で複合グラフが作成されます。アレイからのデータのグラフを使用します。
  8. クリックして、 ADO レコード セットを使用します。 ボタン クリックします。2 つのグラフは、グラフ スペースに作成されます。バー グラフと分割円グラフのデータ ラベルを持つ。グラフのデータをデータ ソース コントロールを使用して、Access データベースに対する ADO 接続をデータ ソース コントロールを参照します。
  9. クリックして、 スプレッドシートを使用します。 ボタン クリックします。スプレッドシート コントロールにセルの数式でデータを使用して、散布図が作成されます。スプレッドシート コントロールが動的に追加され、実行時に削除します。
owc グラフ領域がグラフのグラフのグラフ

警告: この資料は、自動翻訳されています

プロパティ

文書番号:235885 - 最終更新日: 07/22/2011 15:42:00 - リビジョン: 3.0

  • kbhowto kbmt KB235885 KbMtja
フィードバック