How to create a sparkline from a named range?

8 Dec 20235 minutes to read

You can create a sparkline from a named range with the help of the following code.

using (ExcelEngine excelEngine = new ExcelEngine())
{
  IApplication application = excelEngine.Excel;
  application.DefaultVersion = ExcelVersion.Excel2016;
  IWorkbook workbook = application.Workbooks.Create(1);
  IWorksheet worksheet = workbook.Worksheets[0];

  //Add sample data
  worksheet["A1"].Number = 6911;
  worksheet["B1"].Number = 8261;
  worksheet["C1"].Number = 812;
  worksheet["D1"].Number = 166;

  //Add SparklineGroups
  ISparklineGroup sparklineGroup = worksheet.SparklineGroups.Add();

  //Add SparkLineType
  sparklineGroup.SparklineType = SparklineType.Line;
  sparklineGroup.MarkersColor = Color.BlueViolet;

  //Add sparklines
  ISparklines sparklines = sparklineGroup.Add();

  //Create named ranges
  IName name1 = workbook.Names.Add("Data_Range");
  name1.RefersToRange = worksheet.Range["A1:D1"];
  IRange dataRange = worksheet.Range["Data_Range"];

  IName name2 = workbook.Names.Add("Sparkline_Range");
  name2.RefersToRange = worksheet.Range["E1"];
  IRange referenceRange = worksheet.Range["Sparkline_Range"];

  //Add a sparkline
  sparklines.Add(dataRange, referenceRange);

  FileStream stream = new FileStream("SparklineFromNamedRange.xlsx", FileMode.OpenOrCreate, FileAccess.ReadWrite);
  workbook.SaveAs(stream);
  workbook.Close();
  excelEngine.Dispose();
}
using (ExcelEngine excelEngine = new ExcelEngine())
{
  IApplication application = excelEngine.Excel;
  application.DefaultVersion = ExcelVersion.Excel2016;
  IWorkbook workbook = application.Workbooks.Create(1);
  IWorksheet worksheet = workbook.Worksheets[0];

  //Add sample data
  worksheet["A1"].Number = 6911;
  worksheet["B1"].Number = 8261;
  worksheet["C1"].Number = 812;
  worksheet["D1"].Number = 166;

  //Add SparklineGroups
  ISparklineGroup sparklineGroup = worksheet.SparklineGroups.Add();

  //Add SparkLineType
  sparklineGroup.SparklineType = SparklineType.Line;
  sparklineGroup.MarkersColor = Color.BlueViolet;

  //Add sparklines
  ISparklines sparklines = sparklineGroup.Add();

  //Create named ranges
  IName name1 = workbook.Names.Add("Data_Range");
  name1.RefersToRange = worksheet.Range["A1:D1"];
  IRange dataRange = worksheet.Range["Data_Range"];

  IName name2 = workbook.Names.Add("Sparkline_Range");
  name2.RefersToRange = worksheet.Range["E1"];                
  IRange referenceRange = worksheet.Range["Sparkline_Range"];

  //Add a sparkline
  sparklines.Add(dataRange, referenceRange);

  workbook.SaveAs("SparklineFromNamedRange.xlsx");
}
Using excelEngine As ExcelEngine = New ExcelEngine()
  Dim application As IApplication = excelEngine.Excel
  application.DefaultVersion = ExcelVersion.Excel2016
  Dim workbook As IWorkbook = application.Workbooks.Create(1)
  Dim worksheet As IWorksheet = workbook.Worksheets(0)

  'Add sample data
  worksheet("A1").Number = 6911
  worksheet("B1").Number = 8261
  worksheet("C1").Number = 812
  worksheet("D1").Number = 166

  'Add SparklineGroups
  Dim sparklineGroup As ISparklineGroup = worksheet.SparklineGroups.Add()

  'Add SparkLineType
  sparklineGroup.SparklineType = SparklineType.Line
  sparklineGroup.MarkersColor = Color.BlueViolet

  'Add sparklines
  Dim sparklines As ISparklines = sparklineGroup.Add()

  'Create named ranges
  Dim name1 As IName = workbook.Names.Add("Data_Range")
  name1.RefersToRange = worksheet.Range("A1:D1")
  Dim dataRange As IRange = worksheet.Range("Data_Range")

  Dim name2 As IName = workbook.Names.Add("Sparkline_Range")
  name2.RefersToRange = worksheet.Range("E1")
  Dim referenceRange As IRange = worksheet.Range("Sparkline_Range")

  'Add a sparkline
  sparklines.Add(dataRange, referenceRange)

  workbook.SaveAs("SparklineFromNamedRange.xlsx")
End Using

See Also