方法 : ワークシートに Chart コントロールを追加する

[アーティクル]
08/09/2011

Chart コントロールは、デザイン時および実行時にドキュメントレベルのカスタマイズの Microsoft Office Excel ワークシートに追加できます。アプリケーションレベルのアドインでも、Chart コントロールを実行時に追加できます。

対象: このトピックの情報は、Excel 2007 と Excel 2010 のドキュメントレベルのプロジェクトおよびアプリケーションレベルのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクトタイプ別の使用可能な機能」を参照してください。

このトピックでは、次のタスクについて説明します。

デザイン時に Chart コントロールを追加する
実行時に Chart コントロールをドキュメントレベルのプロジェクトに追加する
実行時に Chart コントロールをアプリケーションレベルのプロジェクトに追加する

Chart コントロールの詳細については、「Chart コントロール」を参照してください。

デザイン時に Chart コントロールを追加する

アプリケーションの中からグラフを追加するのと同じ方法で、ワークシートに Chart コントロールを追加できます。

注意

Chart コントロールは、ツールボックスや [データソース] ウィンドウにはありません。

Excel でワークシートに Chart ホストコントロールを追加するには

[挿入] タブの [グラフ] で、[縦棒] をクリックし、グラフのカテゴリをクリックして、目的のグラフの種類をクリックします。
[グラフの挿入] ダイアログボックスで、[OK] をクリックします。
[デザイン] タブの [データ] で、[データの選択] をクリックします。
[データソースの選択] ダイアログボックスの [グラフデータの範囲] ボックス内でクリックし、既定の選択をクリアします。
チャート用のデータのある シートで、グラフのデータが格納されているセルの範囲 (セル A5 ～ D8) を選択します。
[データソースの選択] ダイアログボックスで、[OK] をクリックします。

実行時に Chart コントロールをドキュメントレベルのプロジェクトに追加する

実行時に Chart コントロールを動的に追加できます。動的に作成したグラフは、ドキュメントを閉じるとホストコントロールとしてドキュメントに維持されません。詳細については、「実行時の Office ドキュメントへのコントロールの追加」を参照してください。

プログラミングによってワークシートに Chart コントロールを追加するには

Sheet1 の Startup イベントハンドラーに以下のコードを挿入して、Chart コントロールを追加します。

Dim employeeData As Microsoft.Office.Tools.Excel.Chart
employeeData = Me.Controls.AddChart(25, 110, 200, 150, "employees")
employeeData.ChartType = Excel.XlChartType.xl3DPie

' Gets the cells that define the data to be charted.
Dim chartRange As Excel.Range = Me.Range("A5", "D8")
employeeData.SetSourceData(chartRange)

Microsoft.Office.Tools.Excel.Chart employeeData;
employeeData = this.Controls.AddChart(25, 110, 200, 150, "employees");
employeeData.ChartType = Excel.XlChartType.xl3DPie;

// Gets the cells that define the data to be charted.
Excel.Range chartRange = this.get_Range("A5", "D8");
employeeData.SetSourceData(chartRange, missing);

実行時に Chart コントロールをアプリケーションレベルのプロジェクトに追加する

プログラムによって Chart コントロールをアプリケーションレベルのアドインプロジェクトの任意の開いているワークシートに追加できます。詳細については、「アプリケーションレベルのアドインにおける実行時の Word 文書や Excel ブックの拡張」を参照してください。

動的に作成されたチャートコントロールは、ワークシートを閉じるときに、ホストコントロールとしてワークシートに保持されません。詳細については、「実行時の Office ドキュメントへのコントロールの追加」を参照してください。

プログラミングによってワークシートに Chart コントロールを追加するには

次のコードでは、開いているワークシートに基づいたワークシートホスト項目を作成し、Chart コントロールを追加します。

Private Sub AddChart()
    Dim NativeWorksheet As Microsoft.Office.Interop.Excel.Worksheet =
        Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet

    ' Use the following line of code in projects that target the .NET Framework 4.
    Dim worksheet As Microsoft.Office.Tools.Excel.Worksheet =
        Globals.Factory.GetVstoObject(NativeWorksheet)

    ' In projects that target the .NET Framework 3.5, use the following line of code.
    ' Dim worksheet = CType(Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet,  _
    '    Excel.Worksheet).GetVstoObject()

    Dim cells As Excel.Range = worksheet.Range("A5", "D8")
    Dim chart As Chart = worksheet.Controls.AddChart(cells, "employees")
    chart.ChartType = Excel.XlChartType.xl3DPie
    chart.SetSourceData(cells, Type.Missing)

End Sub

private void AddChart()
{
    // Use the following line of code in projects that target the .NET Framework 4.
    Worksheet worksheet = Globals.Factory.GetVstoObject(
        Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet);

    // In projects that target the .NET Framework 3.5, use the following line of code.
    // Worksheet worksheet = 
    //     ((Excel.Worksheet)Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet).GetVstoObject();

    Excel.Range cells = worksheet.Range["A5", "D8"];
    Chart chart = worksheet.Controls.AddChart(cells, "employees");
    chart.ChartType = Microsoft.Office.Interop.Excel.XlChartType.xl3DPie;
    chart.SetSourceData(cells, missing);
}