Samples: Alignment

   Minimize
  Alignment Sample for C# / VB.NET


Download the sample here
 

[C#] 


   1:  XlsDocumentBuilder builder = new XlsDocumentBuilder();
   2:  //Create a new workbook
   3:  IXlsWorkbook book = builder.Create(1);
   4:   
   5:  //Add worksheet
   6:  IXlsWorksheet sheet = book.Worksheets[0];
   7:   
   8:  //Top header  
   9:  IXlsRange range = sheet.Range[2, 3, 2, 5];
  10:  range.Value2 = new string[] { "Top", "Center", "Bottom" };
  11:  range.CellStyle.Font.Bold = true;
  12:   
  13:  range = sheet.Range[1, 3, 1, 5];
  14:  range[1, 1].Value = "Vertical alignment";
  15:  range.HorizontalAlignment = XlsHorizontalAlignment.CenterAcrossSelection;
  16:   
  17:  //Left header
  18:  range = sheet.Range[3, 2, 5, 2];
  19:  range.Value2 = new string[,] { { "Left" }, { "Center" }, { "Right" } };
  20:  range.VerticalAlignment = XlsVerticalAlignment.Top;
  21:  range.CellStyle.Font.Bold = true;
  22:   
  23:  range = sheet.Range[3, 1, 5, 1];
  24:  range[1, 1].Value = "Horizontal alignment";
  25:  range.Merge();
  26:  range.VerticalAlignment = XlsVerticalAlignment.Center;
  27:   
  28:  //Table body
  29:  range = sheet.Range[3, 3, 5, 5];
  30:  range.RowHeight = 40;
  31:  range.ColumnWidth = 12;
  32:  range.Value = "Text";
  33:   
  34:  //Columns
  35:  range.Columns[0].VerticalAlignment = XlsVerticalAlignment.Top;
  36:  range.Columns[1].VerticalAlignment = XlsVerticalAlignment.Center;
  37:  range.Columns[2].VerticalAlignment = XlsVerticalAlignment.Bottom;
  38:   
  39:  //Rows
  40:  range.Rows[0].HorizontalAlignment = XlsHorizontalAlignment.Left;
  41:  range.Rows[1].HorizontalAlignment = XlsHorizontalAlignment.Center;
  42:  range.Rows[2].HorizontalAlignment = XlsHorizontalAlignment.Right;
  43:   
  44:  //Save workbook
  45:  book.Save(FileName);

[VB.NET]

   1:  Dim builder As New XlsDocumentBuilder()
   2:   'Create a new workbook 
   3:   Dim book As IXlsWorkbook = builder.Create(1)
   4:   
   5:   'Add worksheet 
   6:   Dim sheet As IXlsWorksheet = book.Worksheets(0)
   7:   
   8:   'Top header 
   9:   Dim range As IXlsRange = sheet.Range(2, 3, 2, 5)
  10:   range.Value2 = New String() {"Top", "Center", "Bottom"}
  11:   range.CellStyle.Font.Bold = True
  12:   
  13:   range = sheet.Range(1, 3, 1, 5)
  14:   range(1, 1).Value = "Vertical alignment"
  15:   range.HorizontalAlignment = XlsHorizontalAlignment.CenterAcrossSelection
  16:   
  17:   'Left header 
  18:   range = sheet.Range(3, 2, 5, 2)
  19:   range.Value2 = New String(,) {{"Left"}, {"Center"}, {"Right"}}
  20:   range.VerticalAlignment = XlsVerticalAlignment.Top
  21:   range.CellStyle.Font.Bold = True
  22:   
  23:   range = sheet.Range(3, 1, 5, 1)
  24:   range(1, 1).Value = "Horizontal alignment"
  25:   range.Merge()
  26:   range.VerticalAlignment = XlsVerticalAlignment.Center
  27:   
  28:   'Table body 
  29:   range = sheet.Range(3, 3, 5, 5)
  30:   range.RowHeight = 40
  31:   range.ColumnWidth = 12
  32:   range.Value = "Text"
  33:   
  34:   'Columns 
  35:   range.Columns(0).VerticalAlignment = XlsVerticalAlignment.Top
  36:   range.Columns(1).VerticalAlignment = XlsVerticalAlignment.Center
  37:   range.Columns(2).VerticalAlignment = XlsVerticalAlignment.Bottom
  38:   
  39:   'Rows 
  40:   range.Rows(0).HorizontalAlignment = XlsHorizontalAlignment.Left
  41:   range.Rows(1).HorizontalAlignment = XlsHorizontalAlignment.Center
  42:   range.Rows(2).HorizontalAlignment = XlsHorizontalAlignment.Right
  43:   
  44:   'Save workbook 
  45:   book.Save(FileName)