//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); var fileStream = this.GetResourceStream("xlsx\\ShapeType.xlsx"); workbook.Open(fileStream); var sheet = workbook.Worksheets[0]; int row = 2; int column = 4; for (int i = 0; i < sheet.Shapes.Count; i++) { var shape = sheet.Shapes[i]; // Add a text on the right side of the shape to display the type of the shape. sheet.Range[row, column].Value = "This is a " + shape.Type.ToString() + "."; sheet.Range[row, column].Font.Bold = true; sheet.Range[row, column].Font.Size = 13; // Row and column change every 4 shapes. if ((i + 1) % 4 == 0) { row = 2; column += 6; } else { row += 10; } } // Save to an excel file workbook.Save("GetShapeType.xlsx");
' Create a new Workbook Dim workbook As New Workbook Dim fileStream = GetResourceStream("xlsx\\ShapeType.xlsx") workbook.Open(fileStream) Dim worksheet = workbook.ActiveSheet Dim sheet = workbook.Worksheets(0) Dim row As Integer = 2 Dim column As Integer = 4 For i As Integer = 0 To sheet.Shapes.Count - 1 Dim shape = sheet.Shapes(i) ' Add a text on the right side of the shape to display the type of the shape. sheet.Range(row, column).Value = "This is a " & shape.Type.ToString() & "." sheet.Range(row, column).Font.Bold = True sheet.Range(row, column).Font.Size = 13 ' Row and column change every 4 shapes. If ((i + 1) Mod 4) = 0 Then row = 2 column += 6 Else row += 10 End If Next ' save to an excel file workbook.Save("GetShapeType.xlsx")