//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet sheet = workbook.Worksheets[0]; // Get stream of picture System.IO.Stream stream = this.GetResourceStream("logo.png"); // Add a rectangle IShape rectangle = sheet.Shapes.AddShape(AutoShapeType.Rectangle, 20, 20, 250, 50); // Set picture fill rectangle.Fill.UserPicture(stream, Drawing.ImageType.PNG); rectangle.Line.Transparency = 1; // Add a oval IShape oval = sheet.Shapes.AddShape(AutoShapeType.Oval, 20, 90, 250, 50); // Set picture fill oval.Fill.UserPicture(stream, Drawing.ImageType.PNG); oval.Line.Color.RGB = System.Drawing.Color.FromArgb(0x49129E); // Add a five point star IShape star = sheet.Shapes.AddShape(AutoShapeType.Shape5pointStar, 300, 20, 100, 100); // Set picture fill star.Fill.PresetTextured(Drawing.PresetTexture.WaterDroplets); // Save to a pdf file workbook.Save("ShapeWithPictureOrTextureFill.pdf");
' Create a new Workbook Dim workbook As New Workbook Dim sheet As IWorksheet = workbook.Worksheets(0) ' Get stream of picture Dim stream As IO.Stream = GetResourceStream("logo.png") ' Add a rectangle Dim rectangle As IShape = sheet.Shapes.AddShape(AutoShapeType.Rectangle, 20, 20, 250, 50) ' Set picture fill rectangle.Fill.UserPicture(stream, ImageType.PNG) rectangle.Line.Transparency = 1 ' Add a oval Dim oval As IShape = sheet.Shapes.AddShape(AutoShapeType.Oval, 20, 90, 250, 50) ' Set picture fill oval.Fill.UserPicture(stream, ImageType.PNG) oval.Line.Color.RGB = System.Drawing.Color.FromArgb(&H49129E) ' Add a five point star Dim star As IShape = sheet.Shapes.AddShape(AutoShapeType.Shape5pointStar, 300, 20, 100, 100) ' Set picture fill star.Fill.PresetTextured(PresetTexture.WaterDroplets) ' save to a pdf file workbook.Save("ShapeWithPictureOrTextureFill.pdf")