// Create a png file stream FileStream outputStream = new FileStream("ConvertRangeToImage.png", FileMode.Create); //create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; //Set value worksheet.Range["A1:C1"].Value = new string[] { "Device", "Quantity", "Unit Price" }; worksheet.Range["A2:C5"].Value = new object[,] { { "T540p", 12, 9850 }, { "T570", 5, 7460 }, { "Y460", 6, 5400 }, { "Y460F", 8, 6240 } }; //Set style worksheet.Range["A1:C1"].Font.Bold = true; worksheet.Range["A1:C1"].Font.Color = Color.White; worksheet.Range["A1:C1"].Interior.Color = Color.LightBlue; worksheet.Range["A2:C5"].Borders[BordersIndex.InsideHorizontal].Color = Color.Orange; worksheet.Range["A2:C5"].Borders[BordersIndex.InsideHorizontal].LineStyle = BorderLineStyle.DashDot; // Save the range "A1:C5" as an image to a stream. worksheet.Range["A1:C5"].ToImage(outputStream, Drawing.ImageType.PNG); // Close the image stream outputStream.Close();
' Create a png file stream Dim outputStream = File.Create("ConvertRangeToImage.png") ' Create a new Workbook Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) 'Set value worksheet.Range("A1:C1").Value = {"Device", "Quantity", "Unit Price"} worksheet.Range("A2:C5").Value = New Object(,) { {"T540p", 12, 9850}, {"T570", 5, 7460}, {"Y460", 6, 5400}, {"Y460F", 8, 6240} } 'Set style With worksheet.Range("A1:C1") .Font.Bold = True .Font.Color = Color.White .Interior.Color = Color.LightBlue End With With worksheet.Range("A2:C5").Borders(BordersIndex.InsideHorizontal) .Color = Color.Orange .LineStyle = BorderLineStyle.DashDot End With ' Save the range "A1:C5" as an image to a stream. worksheet.Range("A1:C5").ToImage(outputStream, ImageType.PNG) ' close the image stream outputStream.Close()