Spread for ASP.NET 13 Product Documentation
FarPoint.Web.Spread Assembly / FarPoint.Web.Spread Namespace / ExcelSparklineGroup Class / GetExcelSetting Method
Example


In This Topic
    GetExcelSetting Method
    In This Topic
    Gets the excel setting.
    Syntax
    'Declaration
     
    Public Function GetExcelSetting() As ExcelSparklineSetting
    'Usage
     
    Dim instance As ExcelSparklineGroup
    Dim value As ExcelSparklineSetting
     
    value = instance.GetExcelSetting()
    public ExcelSparklineSetting GetExcelSetting()
    Example
    This example creates sparklines.
    fpSpread1.Sheets[0].RowCount = 10;
    fpSpread1.Sheets[0].ColumnCount = 10;
    fpSpread1.Sheets[0].SetClip(0, 0, 1, 5, "1\t2\t3\t4\t5");
    fpSpread1.Sheets[0].SetClip(1, 0, 1, 5, "5\t4\t3\t2\t1");
    fpSpread1.Sheets[0].SetClip(2, 0, 1, 5, "1\t2\t3\t2\t1");
    
    FarPoint.Web.Spread.ExcelSparkline es = new FarPoint.Web.Spread.ExcelSparkline(0, 6, fpSpread1.Sheets[0], new
    FarPoint.Web.Spread.Model.CellRange(0, 0, 1, 5));
    FarPoint.Web.Spread.ExcelSparkline es1 = new FarPoint.Web.Spread.ExcelSparkline(1, 6, fpSpread1.Sheets[0],
    new FarPoint.Web.Spread.Model.CellRange(1, 0, 1, 5));
    FarPoint.Web.Spread.ExcelSparkline es2 = new FarPoint.Web.Spread.ExcelSparkline(2, 6, fpSpread1.Sheets[0],
    new FarPoint.Web.Spread.Model.CellRange(2, 0, 1, 5));
    FarPoint.Web.Spread.ExcelSparklineGroup esg = new FarPoint.Web.Spread.ExcelSparklineGroup(new
    FarPoint.Web.Spread.ExcelSparklineSetting(), FarPoint.Web.Spread.SparklineType.Column);
    FarPoint.Web.Spread.ExcelSparklineSetting eSetting = new FarPoint.Web.Spread.ExcelSparklineSetting();
    eSetting.ShowMarkers = true;
    eSetting.AxisColor = Color.Cyan;
    eSetting.DisplayEmptyCellsAs = FarPoint.Web.Spread.Chart.EmptyValueStyle.Gaps;
    eSetting.DisplayHidden = true;
    eSetting.DisplayXAxis = true;
    eSetting.FirstMarkerColor = Color.AliceBlue;
    eSetting.Formula = "Sheet1!$A$4:$E$4";
    eSetting.HighMarkerColor = Color.Honeydew;
    eSetting.LastMarkerColor = Color.Lavender;
    eSetting.LineWeight = 2;
    eSetting.LowMarkerColor = Color.LawnGreen;
    eSetting.ManualMax = 3;
    eSetting.ManualMin = 1;
    eSetting.MarkersColor = Color.Magenta;
    eSetting.MaxAxisType = FarPoint.Web.Spread.SparklineAxisMinMax.Custom;
    eSetting.MinAxisType = FarPoint.Web.Spread.SparklineAxisMinMax.Individual;
    eSetting.NegativeColor = Color.NavajoWhite;
    eSetting.RightToLeft = true;
    eSetting.SeriesColor = Color.SeaGreen;
    eSetting.ShowFirst = true;
    eSetting.ShowHigh = true;
    eSetting.ShowLast = true;
    eSetting.ShowLow = true;
    eSetting.ShowNegative = true;
    esg.Add(es);
    esg.Add(es1);
    esg.Add(es2);            
    fpSpread1.Sheets[0].SparklineContainer.Add(esg);
    FarPoint.Web.Spread.ExcelSparklineGroup ea = (FarPoint.Web.Spread.ExcelSparklineGroup)fpSpread1.ActiveSheet.SparklineContainer[0];
    ea.Setting = eSetting;
    FarPoint.Web.Spread.ExcelSparklineSetting getSetting = ea.GetExcelSetting();
    FarPoint.Web.Spread.ExcelSparklineSetting expect = (FarPoint.Web.Spread.ExcelSparklineSetting)ea.Setting;
    listBox1.Items.Add(eSetting.AxisColor.ToString());
    
    
    FpSpread1.Sheets(0).RowCount = 10
    FpSpread1.Sheets(0).ColumnCount = 10
    FpSpread1.Sheets(0).SetClip(0, 0, 1, 5, "1" + Chr(9) + "2" + Chr(9) + "3" + Chr(9) + "4" + Chr(9) + "5")
    FpSpread1.Sheets(0).SetClip(1, 0, 1, 5, "5" + Chr(9) + "4" + Chr(9) + "3" + Chr(9) + "2" + Chr(9) + "1")
    FpSpread1.Sheets(0).SetClip(2, 0, 1, 5, "1" + Chr(9) + "2" + Chr(9) + "3" + Chr(9) + "2" + Chr(9) + "1")
    
    Dim es As New FarPoint.Web.Spread.ExcelSparkline(0, 6, FpSpread1.Sheets(0), New FarPoint.Web.Spread.Model.CellRange(0, 0, 1, 5))
    Dim es1 As New FarPoint.Web.Spread.ExcelSparkline(1, 6, FpSpread1.Sheets(0), New FarPoint.Web.Spread.Model.CellRange(1, 0, 1, 5))
    Dim es2 As New FarPoint.Web.Spread.ExcelSparkline(2, 6, FpSpread1.Sheets(0), New FarPoint.Web.Spread.Model.CellRange(2, 0, 1, 5))
    Dim esg As New FarPoint.Web.Spread.ExcelSparklineGroup(New FarPoint.Web.Spread.ExcelSparklineSetting(), FarPoint.Web.Spread.SparklineType.Column)
    esg.Add(es)
    esg.Add(es1)
    esg.Add(es2)
    FpSpread1.Sheets(0).SparklineContainer.Add(esg)
    
    Dim eSetting As New FarPoint.Web.Spread.ExcelSparklineSetting()
    eSetting.ShowMarkers = True
    eSetting.AxisColor = Color.Cyan
    eSetting.DisplayEmptyCellsAs = FarPoint.Web.Spread.Chart.EmptyValueStyle.Gaps
    eSetting.DisplayHidden = True
    eSetting.DisplayXAxis = True
    eSetting.FirstMarkerColor = Color.AliceBlue
    eSetting.Formula = "Sheet1!$A$4:$E$4"
    eSetting.HighMarkerColor = Color.Honeydew
    eSetting.LastMarkerColor = Color.Lavender
    eSetting.LineWeight = 2
    eSetting.LowMarkerColor = Color.LawnGreen
    eSetting.ManualMax = 3
    eSetting.ManualMin = 1
    eSetting.MarkersColor = Color.Magenta
    eSetting.MaxAxisType = FarPoint.Web.Spread.SparklineAxisMinMax.[Custom]
    eSetting.MinAxisType = FarPoint.Web.Spread.SparklineAxisMinMax.Individual
    eSetting.NegativeColor = Color.NavajoWhite
    eSetting.RightToLeft = True
    eSetting.SeriesColor = Color.SeaGreen
    eSetting.ShowFirst = True
    eSetting.ShowHigh = True
    eSetting.ShowLast = True
    eSetting.ShowLow = True
    eSetting.ShowNegative = True
    
    Dim ea As FarPoint.Web.Spread.ExcelSparklineGroup = DirectCast(FpSpread1.ActiveSheet.SparklineContainer(0), FarPoint.Web.Spread.ExcelSparklineGroup)
    ea.Setting = eSetting
    Dim getSetting As FarPoint.Web.Spread.ExcelSparklineSetting = ea.GetExcelSetting()
    Dim expect As FarPoint.Web.Spread.ExcelSparklineSetting = DirectCast(ea.Setting, FarPoint.Web.Spread.ExcelSparklineSetting)
    ListBox1.Items.Add(eSetting.AxisColor.ToString())
    See Also