//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; worksheet.Range["A1"].Interior.Pattern = GrapeCity.Documents.Excel.Pattern.RectangularGradient; (worksheet.Range["A1"].Interior.Gradient as IRectangularGradient).ColorStops[0].Color = Color.Red; (worksheet.Range["A1"].Interior.Gradient as IRectangularGradient).ColorStops[1].Color = Color.Green; (worksheet.Range["A1"].Interior.Gradient as IRectangularGradient).Bottom = 0.2; (worksheet.Range["A1"].Interior.Gradient as IRectangularGradient).Right = 0.3; (worksheet.Range["A1"].Interior.Gradient as IRectangularGradient).Top = 0.4; (worksheet.Range["A1"].Interior.Gradient as IRectangularGradient).Left = 0.5; // Save to an excel file workbook.Save("RectangularGradientFill.xlsx");
' Create a new Workbook Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range!A1.Interior.Pattern = Pattern.RectangularGradient With TryCast(worksheet.Range!A1.Interior.Gradient, IRectangularGradient) .ColorStops(0).Color = Color.Red .ColorStops(1).Color = Color.Green .Bottom = 0.2 .Right = 0.3 .Top = 0.4 .Left = 0.5 End With ' save to an excel file workbook.Save("RectangularGradientFill.xlsx")