Spread ASP.NET 15
FarPoint.Web.Spread Assembly / FarPoint.Web.Spread Namespace / ExcelSparklineGroup Class / CloneSetting Method
Example


In This Topic
    CloneSetting Method (ExcelSparklineGroup)
    In This Topic
    Clones a new sparkline group that copies the setting of the current sparkline group.
    Syntax
    'Declaration
     
    Public Function CloneSetting() As ISparklineGroup
    'Usage
     
    Dim instance As ExcelSparklineGroup
    Dim value As ISparklineGroup
     
    value = instance.CloneSetting()
    public ISparklineGroup CloneSetting()
    Example
    This example creates sparklines.
    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;
    
    FarPoint.Web.Spread.ExcelSparklineGroup esg = new FarPoint.Web.Spread.ExcelSparklineGroup(eSetting, FarPoint.Web.Spread.SparklineType.Line);
    
    FarPoint.Web.Spread.ExcelSparklineGroup esg1;
    esg1 = (FarPoint.Web.Spread.ExcelSparklineGroup)esg.CloneSetting();
    
    FarPoint.Web.Spread.ExcelSparklineSetting ess = (FarPoint.Web.Spread.ExcelSparklineSetting)esg.Setting;
    FarPoint.Web.Spread.ExcelSparklineSetting ess1 = (FarPoint.Web.Spread.ExcelSparklineSetting)esg1.Setting;
    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 esg As New FarPoint.Web.Spread.ExcelSparklineGroup(eSetting, FarPoint.Web.Spread.SparklineType.Line)
    
    Dim esg1 As FarPoint.Web.Spread.ExcelSparklineGroup
    esg1 = DirectCast(esg.CloneSetting(), FarPoint.Web.Spread.ExcelSparklineGroup)
    
    Dim ess As FarPoint.Web.Spread.ExcelSparklineSetting = DirectCast(esg.Setting, FarPoint.Web.Spread.ExcelSparklineSetting)
    Dim ess1 As FarPoint.Web.Spread.ExcelSparklineSetting = DirectCast(esg1.Setting, FarPoint.Web.Spread.ExcelSparklineSetting)
    See Also