チャートを追加する（データソースの使用） – MESCIUS ナレッジベース

作成日: 2017/05/16 最終更新日: 2017/05/16

文書種別

使用方法

詳細

シリーズのデータソースにシートのセル範囲を設定することにより、チャートオブジェクトを配置させることが出来ます。

◎サンプルコード(VB)

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
　　If IsPostBack Then
　　　　Return
　　End If

　　FpSpread1.Width = 500
　　FpSpread1.Height = 500

　　FpSpread1.ActiveSheetView.RowCount = 5
　　FpSpread1.ActiveSheetView.ColumnCount = 4

　　' データを設定します
　　FpSpread1.Sheets(0).Cells(0, 1).Value = "S1"
　　FpSpread1.Sheets(0).Cells(0, 2).Value = "S2"
　　FpSpread1.Sheets(0).Cells(0, 3).Value = "S3"

　　FpSpread1.Sheets(0).Cells(1, 0).Value = "1Q"
　　FpSpread1.Sheets(0).Cells(2, 0).Value = "2Q"
　　FpSpread1.Sheets(0).Cells(3, 0).Value = "3Q"
　　FpSpread1.Sheets(0).Cells(4, 0).Value = "4Q"

　　FpSpread1.Sheets(0).Cells(1, 1).Value = 50
　　FpSpread1.Sheets(0).Cells(2, 1).Value = 30
　　FpSpread1.Sheets(0).Cells(3, 1).Value = 20
　　FpSpread1.Sheets(0).Cells(4, 1).Value = 40

　　FpSpread1.Sheets(0).Cells(1, 2).Value = 30
　　FpSpread1.Sheets(0).Cells(2, 2).Value = 15
　　FpSpread1.Sheets(0).Cells(3, 2).Value = 50
　　FpSpread1.Sheets(0).Cells(4, 2).Value = 20

　　FpSpread1.Sheets(0).Cells(1, 3).Value = 10
　　FpSpread1.Sheets(0).Cells(2, 3).Value = 40
　　FpSpread1.Sheets(0).Cells(3, 3).Value = 25
　　FpSpread1.Sheets(0).Cells(4, 3).Value = 25

　　' シリーズを設定します
　　Dim series1 As New FarPoint.Web.Chart.LineSeries()
　　series1.SeriesNameDataSource = New FarPoint.Web.Spread.Chart.SeriesDataField(FpSpread1, "Values", "Sheet1!$B$1:$B$1", FarPoint.Web.Spread.Chart.SegmentDataType.Text)
　　series1.Values.DataSource = New FarPoint.Web.Spread.Chart.SeriesDataField(FpSpread1, "Values", "Sheet1!$B$2:$B$5")
　　series1.CategoryNames.DataSource = New FarPoint.Web.Spread.Chart.SeriesDataField(FpSpread1, "Values", "Sheet1!$A$2:$A$5", FarPoint.Web.Spread.Chart.SegmentDataType.Text)

　　Dim series2 As New FarPoint.Web.Chart.LineSeries()
　　series2.SeriesNameDataSource = New FarPoint.Web.Spread.Chart.SeriesDataField(FpSpread1, "Values", "Sheet1!$C$1:$C$1", FarPoint.Web.Spread.Chart.SegmentDataType.Text)
　　series2.Values.DataSource = New FarPoint.Web.Spread.Chart.SeriesDataField(FpSpread1, "Values", "Sheet1!$C$2:$C$5")
　　series2.CategoryNames.DataSource = New FarPoint.Web.Spread.Chart.SeriesDataField(FpSpread1, "Values", "Sheet1!$A$2:$A$5", FarPoint.Web.Spread.Chart.SegmentDataType.Text)

　　Dim series3 As New FarPoint.Web.Chart.LineSeries()
　　series3.SeriesNameDataSource = New FarPoint.Web.Spread.Chart.SeriesDataField(FpSpread1, "Values", "Sheet1!$D$1:$D$1", FarPoint.Web.Spread.Chart.SegmentDataType.Text)
　　series3.Values.DataSource = New FarPoint.Web.Spread.Chart.SeriesDataField(FpSpread1, "Values", "Sheet1!$D$2:$D$5")
　　series3.CategoryNames.DataSource = New FarPoint.Web.Spread.Chart.SeriesDataField(FpSpread1, "Values", "Sheet1!$A$2:$A$5", FarPoint.Web.Spread.Chart.SegmentDataType.Text)

　　' 折れ線グラフを設定します
　　Dim plotArea As New FarPoint.Web.Chart.YPlotArea()
　　plotArea.Location = New Drawing.PointF(0.2F, 0.2F)
　　plotArea.Size = New Drawing.SizeF(0.55F, 0.6F)
　　plotArea.Series.Add(series1)
　　plotArea.Series.Add(series2)
　　plotArea.Series.Add(series3)

　　' ラベルを設定します
　　Dim label As New FarPoint.Web.Chart.LabelArea()
　　label.Text = "四半期別"
　　label.Location = New Drawing.PointF(0.5F, 0.02F)
　　label.AlignmentX = 0.5F
　　label.AlignmentY = 0.0F

　　' 凡例を設定します
　　Dim legend As New FarPoint.Web.Chart.LegendArea()
　　legend.Location = New Drawing.PointF(0.98F, 0.5F)
　　legend.AlignmentX = 1.0F
　　legend.AlignmentY = 0.5F

　　' チャートモデルに各情報を追加します
　　Dim model As New FarPoint.Web.Chart.ChartModel()
　　model.LabelAreas.Add(label)
　　model.LegendAreas.Add(legend)
　　model.PlotAreas.Add(plotArea)

　　' SPREADチャートにチャートモデルを設定します
　　Dim chart As New FarPoint.Web.Spread.Chart.SpreadChart()
　　chart.Height = 250
　　chart.Width = 300
　　chart.Left = 30
　　chart.Top = 150

　　chart.Model = model

　　' シートにSPREADチャートを追加します
　　FpSpread1.Sheets(0).Charts.Add(chart)End Sub

◎サンプルコード(C#)

protected void Page_Load(object sender, EventArgs e)
{
　　if (Page.IsPostBack)
　　{
　　　　return;
　　}

　　fpSpread1.Width = 500;
　　fpSpread1.Height = 500;

　　fpSpread1.ActiveSheetView.RowCount = 5;
　　fpSpread1.ActiveSheetView.ColumnCount = 4;

　　// データを設定します
　　fpSpread1.Sheets[0].Cells[0, 1].Value = "S1";
　　fpSpread1.Sheets[0].Cells[0, 2].Value = "S2";
　　fpSpread1.Sheets[0].Cells[0, 3].Value = "S3";

　　fpSpread1.Sheets[0].Cells[1, 0].Value = "1Q";
　　fpSpread1.Sheets[0].Cells[2, 0].Value = "2Q";
　　fpSpread1.Sheets[0].Cells[3, 0].Value = "3Q";
　　fpSpread1.Sheets[0].Cells[4, 0].Value = "4Q";

　　fpSpread1.Sheets[0].Cells[1, 1].Value = 50;
　　fpSpread1.Sheets[0].Cells[2, 1].Value = 30;
　　fpSpread1.Sheets[0].Cells[3, 1].Value = 20;
　　fpSpread1.Sheets[0].Cells[4, 1].Value = 40;

　　fpSpread1.Sheets[0].Cells[1, 2].Value = 30;
　　fpSpread1.Sheets[0].Cells[2, 2].Value = 15;
　　fpSpread1.Sheets[0].Cells[3, 2].Value = 50;
　　fpSpread1.Sheets[0].Cells[4, 2].Value = 20;

　　fpSpread1.Sheets[0].Cells[1, 3].Value = 10;
　　fpSpread1.Sheets[0].Cells[2, 3].Value = 40;
　　fpSpread1.Sheets[0].Cells[3, 3].Value = 25;
　　fpSpread1.Sheets[0].Cells[4, 3].Value = 25;

　　// シリーズを設定します
　　FarPoint.Web.Chart.LineSeries series1 = new FarPoint.Web.Chart.LineSeries();
　　series1.SeriesNameDataSource = new FarPoint.Web.Spread.Chart.SeriesDataField(fpSpread1, "Values", "Sheet1!$B$1:$B$1", FarPoint.Web.Spread.Chart.SegmentDataType.Text);
　　series1.Values.DataSource = new FarPoint.Web.Spread.Chart.SeriesDataField(fpSpread1, "Values", "Sheet1!$B$2:$B$5");
　　series1.CategoryNames.DataSource = new FarPoint.Web.Spread.Chart.SeriesDataField(fpSpread1, "Values", "Sheet1!$A$2:$A$5", FarPoint.Web.Spread.Chart.SegmentDataType.Text);

　　FarPoint.Web.Chart.LineSeries series2 = new FarPoint.Web.Chart.LineSeries();
　　series2.SeriesNameDataSource = new FarPoint.Web.Spread.Chart.SeriesDataField(fpSpread1, "Values", "Sheet1!$C$1:$C$1", FarPoint.Web.Spread.Chart.SegmentDataType.Text);
　　series2.Values.DataSource = new FarPoint.Web.Spread.Chart.SeriesDataField(fpSpread1, "Values", "Sheet1!$C$2:$C$5");
　　series2.CategoryNames.DataSource = new FarPoint.Web.Spread.Chart.SeriesDataField(fpSpread1, "Values", "Sheet1!$A$2:$A$5", FarPoint.Web.Spread.Chart.SegmentDataType.Text);

　　FarPoint.Web.Chart.LineSeries series3 = new FarPoint.Web.Chart.LineSeries();
　　series3.SeriesNameDataSource = new FarPoint.Web.Spread.Chart.SeriesDataField(fpSpread1, "Values", "Sheet1!$D$1:$D$1", FarPoint.Web.Spread.Chart.SegmentDataType.Text);
　　series3.Values.DataSource = new FarPoint.Web.Spread.Chart.SeriesDataField(fpSpread1, "Values", "Sheet1!$D$2:$D$5");
　　series3.CategoryNames.DataSource = new FarPoint.Web.Spread.Chart.SeriesDataField(fpSpread1, "Values", "Sheet1!$A$2:$A$5", FarPoint.Web.Spread.Chart.SegmentDataType.Text);

　　// 折れ線グラフを設定します
　　FarPoint.Web.Chart.YPlotArea plotArea = new FarPoint.Web.Chart.YPlotArea();
　　plotArea.Location = new System.Drawing.PointF(0.2f, 0.2f);
　　plotArea.Size = new System.Drawing.SizeF(0.55f, 0.6f);
　　plotArea.Series.Add(series1);
　　plotArea.Series.Add(series2);
　　plotArea.Series.Add(series3);

　　// ラベルを設定します
　　FarPoint.Web.Chart.LabelArea label = new FarPoint.Web.Chart.LabelArea();
　　label.Text = "四半期別";
　　label.Location = new System.Drawing.PointF(0.5f, 0.02f);
　　label.AlignmentX = 0.5f;
　　label.AlignmentY = 0f;

　　// 凡例を設定します
　　FarPoint.Web.Chart.LegendArea legend = new FarPoint.Web.Chart.LegendArea();
　　legend.Location = new System.Drawing.PointF(0.98f, 0.5f);
　　legend.AlignmentX = 1f;
　　legend.AlignmentY = 0.5f;

　　// チャートモデルに各情報を追加します
　　FarPoint.Web.Chart.ChartModel model = new FarPoint.Web.Chart.ChartModel();
　　model.LabelAreas.Add(label);
　　model.LegendAreas.Add(legend);
　　model.PlotAreas.Add(plotArea);

　　// SPREADチャートにチャートモデルを設定します
　　FarPoint.Web.Spread.Chart.SpreadChart chart = new FarPoint.Web.Spread.Chart.SpreadChart();
　　chart.Height = 250;
　　chart.Width = 300;
　　chart.Left = 30;
　　chart.Top = 150;
　　chart.Model = model;

　　// シートにSPREADチャートを追加します
　　fpSpread1.Sheets[0].Charts.Add(chart);
}

旧文書番号

40354