チャートを追加する（値を直接、設定する）

シートのデータを使用せず、値を直接、チャートに設定できます。SpreadChartクラスを使用します。

実行例：

チャートを表示するには、SPREADのHTTPハンドラを有効にする必要があります。設定方法については、「チャートのHTTPハンドラを登録する」を参照してください。

C#
Visual Basic

FpSpread1.ClientAutoSize = true;           
//折れ線グラフに、値を設定します
string[] names = new string[] { "Q1", "Q2", "Q3", "Q4" };
FarPoint.Web.Chart.LineSeries series1 = new FarPoint.Web.Chart.LineSeries() { SeriesName = "s1" };
series1.CategoryNames.AddRange(names);
series1.Values.AddRange(new double[] { 50, 30, 20, 40 });
FarPoint.Web.Chart.LineSeries series2 = new FarPoint.Web.Chart.LineSeries() { SeriesName = "s2" };
series2.CategoryNames.AddRange(names);
series2.Values.AddRange(new double[] { 30, 15, 50, 20 });
FarPoint.Web.Chart.LineSeries series3 = new FarPoint.Web.Chart.LineSeries() { SeriesName = "s3" };           
series3.CategoryNames.AddRange(names);
series3.Values.AddRange(new double[] { 10, 40, 25, 25 });
//プロットエリアを作成します
FarPoint.Web.Chart.YPlotArea plots = new FarPoint.Web.Chart.YPlotArea()
{
    Location = new System.Drawing.PointF(0.1f, 0.2f),
    Size = new System.Drawing.SizeF(0.7f, 0.6f)
};
plots.Series.AddRange(new FarPoint.Web.Chart.Series[] { series1, series2, series3 });
//凡例を作成します
FarPoint.Web.Chart.LegendArea legents = new FarPoint.Web.Chart.LegendArea()
{
    Location = new System.Drawing.PointF(0.9f, 0.3f)
};
//チャートを作成し、プロットエリアと凡例を追加します
FarPoint.Web.Chart.ChartModel model = new FarPoint.Web.Chart.ChartModel();
model.PlotAreas.Add(plots);
model.LegendAreas.Add(legents);
FarPoint.Web.Spread.Chart.SpreadChart chart = new FarPoint.Web.Spread.Chart.SpreadChart()
{
    Model = model,
    Width = 400,
    Height = 200,               
    Left = 50,
    Top = 50
};
FpSpread1.Sheets[0].Charts.Add(chart);

FpSpread1.ClientAutoSize = True
'折れ線グラフに、値を設定します
Dim names As String() = New String() {"Q1", "Q2", "Q3", "Q4"}
Dim series1 As New FarPoint.Web.Chart.LineSeries() With {
    .SeriesName = "s1"
}
series1.CategoryNames.AddRange(names)
series1.Values.AddRange(New Double() {50, 30, 20, 40})
Dim series2 As New FarPoint.Web.Chart.LineSeries() With {
    .SeriesName = "s2"
}
series2.CategoryNames.AddRange(names)
series2.Values.AddRange(New Double() {30, 15, 50, 20})
Dim series3 As New FarPoint.Web.Chart.LineSeries() With {
    .SeriesName = "s3"
}
series3.CategoryNames.AddRange(names)
series3.Values.AddRange(New Double() {10, 40, 25, 25})
'プロットエリアを作成します
Dim plots As New FarPoint.Web.Chart.YPlotArea() With {
    .Location = New System.Drawing.PointF(0.1F, 0.2F),
    .Size = New System.Drawing.SizeF(0.7F, 0.6F)
}
plots.Series.AddRange(New FarPoint.Web.Chart.Series() {series1, series2, series3})
'凡例を作成します
Dim legents As New FarPoint.Web.Chart.LegendArea() With {
    .Location = New System.Drawing.PointF(0.9F, 0.3F)
}
'チャートを作成し、プロットエリアと凡例を追加します
Dim model As New FarPoint.Web.Chart.ChartModel()
model.PlotAreas.Add(plots)
model.LegendAreas.Add(legents)
Dim chart As New FarPoint.Web.Spread.Chart.SpreadChart() With {
    .Model = model,
    .Width = 400,
    .Height = 200,
    .Left = 50,
    .Top = 50
}
FpSpread1.Sheets(0).Charts.Add(chart)