//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet sheet = workbook.Worksheets[0]; // Add a sun IShape sun = sheet.Shapes.AddShape(AutoShapeType.Sun, 20, 15, 200, 200); // Set gradient fill for sun sun.Fill.OneColorGradient(GradientStyle.Horizontal, 1, 0.8); sun.Fill.GradientStops.Insert(0Xff6347, 0); sun.Fill.GradientStops.Insert(0xFFA500, 0.2); sun.Fill.GradientStops.Insert(0xFFFF00, 0.4); sun.Fill.GradientStops.Insert(0xFF0000, 0.6); sun.Fill.GradientStops.Insert(0x0000FF, 0.8); sun.Fill.GradientStops.Insert(0x800080, 1); // Add a five point star IShape star = sheet.Shapes.AddShape(AutoShapeType.Shape5pointStar, 250, 15, 200, 200); // Set pattern fill for star star.Fill.Patterned(PatternType.DottedDiamond); // Save to a pdf file workbook.Save("ShapeWithGradientAndPatternFill.pdf");
' Create a new Workbook Dim workbook As New Workbook Dim sheet As IWorksheet = workbook.Worksheets(0) ' Add a sun Dim sun As IShape = sheet.Shapes.AddShape(AutoShapeType.Sun, 20, 15, 200, 200) ' Set gradient fill for sun sun.Fill.OneColorGradient(GradientStyle.Horizontal, 1, 0.8) sun.Fill.GradientStops.Insert(&Hff6347, 0) sun.Fill.GradientStops.Insert(&HFFA500, 0.2) sun.Fill.GradientStops.Insert(&HFFFF00, 0.4) sun.Fill.GradientStops.Insert(&HFF0000, 0.6) sun.Fill.GradientStops.Insert(&HFF, 0.8) sun.Fill.GradientStops.Insert(&H800080, 1) ' Add a five point star Dim star As IShape = sheet.Shapes.AddShape(AutoShapeType.Shape5pointStar, 250, 15, 200, 200) ' Set pattern fill for star star.Fill.Patterned(PatternType.DottedDiamond) ' save to a pdf file workbook.Save("ShapeWithGradientAndPatternFill.pdf")