Public Function CloneSetting() As ISparklineGroup

Dim instance As ExcelSparklineGroup
Dim value As ISparklineGroup
 
value = instance.CloneSetting()

public ISparklineGroup CloneSetting()

FarPoint.Win.Spread.ExcelSparklineSetting eSetting = new FarPoint.Win.Spread.ExcelSparklineSetting();
eSetting.ShowMarkers = true;
eSetting.AxisColor = Color.Cyan;
eSetting.DateAxis = true;
eSetting.DisplayEmptyCellsAs = FarPoint.Win.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.Win.Spread.SparklineAxisMinMax.Custom;
eSetting.MinAxisType = FarPoint.Win.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.Win.Spread.ExcelSparklineGroup esg = new FarPoint.Win.Spread.ExcelSparklineGroup(eSetting, FarPoint.Win.Spread.SparklineType.Line);

FarPoint.Win.Spread.ExcelSparklineGroup esg1;
esg1 = (FarPoint.Win.Spread.ExcelSparklineGroup)esg.CloneSetting();

FarPoint.Win.Spread.ExcelSparklineSetting ess = (FarPoint.Win.Spread.ExcelSparklineSetting)esg.Setting;
FarPoint.Win.Spread.ExcelSparklineSetting ess1 = (FarPoint.Win.Spread.ExcelSparklineSetting)esg1.Setting;

Dim eSetting As New FarPoint.Win.Spread.ExcelSparklineSetting()
eSetting.ShowMarkers = True
eSetting.AxisColor = Color.Cyan
eSetting.DateAxis = True
eSetting.DisplayEmptyCellsAs = FarPoint.Win.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.Win.Spread.SparklineAxisMinMax.[Custom]
eSetting.MinAxisType = FarPoint.Win.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.Win.Spread.ExcelSparklineGroup(eSetting, FarPoint.Win.Spread.SparklineType.Line)

Dim esg1 As FarPoint.Win.Spread.ExcelSparklineGroup
esg1 = DirectCast(esg.CloneSetting(), FarPoint.Win.Spread.ExcelSparklineGroup)

Dim ess As FarPoint.Win.Spread.ExcelSparklineSetting = DirectCast(esg.Setting, FarPoint.Win.Spread.ExcelSparklineSetting)
Dim ess1 As FarPoint.Win.Spread.ExcelSparklineSetting = DirectCast(esg1.Setting, FarPoint.Win.Spread.ExcelSparklineSetting)