//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); object[,] sourceData = new object[,] { { "Order ID", "Product", "Category", "Amount", "Date" }, { 1, "Carrots", "Vegetables", 4270, new DateTime(2018, 1, 6) }, { 2, "Broccoli", "Vegetables", 8239, new DateTime(2018, 1, 7) }, { 3, "Banana", "Fruit", 617, new DateTime(2018, 1, 8) }, { 4, "Banana", "Fruit", 8384, new DateTime(2018, 1, 10) }, { 5, "Beans", "Vegetables", 2626, new DateTime(2018, 1, 10) }, { 6, "Orange", "Fruit", 3610, new DateTime(2018, 1, 11) }, { 7, "Broccoli", "Vegetables", 9062, new DateTime(2018, 1, 11) }, { 8, "Banana", "Fruit", 6906, new DateTime(2018, 1, 16) }, { 9, "Apple", "Fruit", 2417, new DateTime(2018, 1, 16) }, { 10, "Apple", "Fruit", 7431, new DateTime(2018, 1, 16) }, { 11, "Banana", "Fruit", 8250, new DateTime(2018, 1, 16) }, { 12, "Broccoli", "Vegetables", 7012, new DateTime(2018, 1, 18) }, { 13, "Carrots", "Vegetables", 1903, new DateTime(2018, 1, 20) }, { 14, "Broccoli", "Vegetables", 2824, new DateTime(2018, 1, 22) }, { 15, "Apple", "Fruit", 6946, new DateTime(2018, 1, 24) }, }; IWorksheet worksheet = workbook.Worksheets[0]; worksheet.Range["A:E"].ColumnWidth = 15; worksheet.Range["A1:E16"].Value = sourceData; ITable table = worksheet.Tables.Add(worksheet.Range["A1:E16"], true); table.Columns[3].DataBodyRange.NumberFormat = "$#,##0.00"; //create slicer cache for table. ISlicerCache cache = workbook.SlicerCaches.Add(table, "Category", "categoryCache"); //add slicer for Category column. ISlicer slicer1 = cache.Slicers.Add(workbook.Worksheets["Sheet1"], "cate1", "Category", 150, 30, 100, 200); slicer1.SlicerCache.SlicerItems["Vegetables"].Selected = false;
' Create a new Workbook Dim workbook As New Workbook Dim sourceData As Object(,) = { {"Order ID", "Product", "Category", "Amount", "Date"}, {1, "Carrots", "Vegetables", 4270, #1/6/2018#}, {2, "Broccoli", "Vegetables", 8239, #1/7/2018#}, {3, "Banana", "Fruit", 617, #1/8/2018#}, {4, "Banana", "Fruit", 8384, #1/10/2018#}, {5, "Beans", "Vegetables", 2626, #1/10/2018#}, {6, "Orange", "Fruit", 3610, #1/11/2018#}, {7, "Broccoli", "Vegetables", 9062, #1/11/2018#}, {8, "Banana", "Fruit", 6906, #1/16/2018#}, {9, "Apple", "Fruit", 2417, #1/16/2018#}, {10, "Apple", "Fruit", 7431, #1/16/2018#}, {11, "Banana", "Fruit", 8250, #1/16/2018#}, {12, "Broccoli", "Vegetables", 7012, #1/18/2018#}, {13, "Carrots", "Vegetables", 1903, #1/20/2018#}, {14, "Broccoli", "Vegetables", 2824, #1/22/2018#}, {15, "Apple", "Fruit", 6946, #1/24/2018#} } Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range("A:E").ColumnWidth = 15 worksheet.Range("A1:E16").Value = sourceData Dim table As ITable = worksheet.Tables.Add(worksheet.Range("A1:E16"), True) table.Columns(3).DataBodyRange.NumberFormat = "$#,##0.00" ' Create slicer cache for table. Dim cache As ISlicerCache = workbook.SlicerCaches.Add(table, "Category", "categoryCache") ' Add slicer for Category column. Dim slicer1 As ISlicer = cache.Slicers.Add(workbook.Worksheets!Sheet1, "cate1", "Category", 30, 550, 100, 200) slicer1.SlicerCache.SlicerItems!Vegetables.Selected = False ' save to a pdf file workbook.Save("SaveSlicer.pdf")