Previous topicNext topic
Help > 开发指南 > Excel > API > 示例 > Shape形状 >
如何：创建形状组

下面的代码示例演示如何使用 ShapeCollection.GroupShapes 方法将三个形状组合成一个形状组：

Vb.Net
'创建一些形状. 
Dim worksheet As DevExpress.Spreadsheet.Worksheet = workbook.Worksheets(0)
Dim shape1 As DevExpress.Spreadsheet.Shape = worksheet.Shapes.AddShape(DevExpress.Spreadsheet.ShapeGeometryPreset.RectangularCallout, 100, 100, 300, 300)
Dim shape2 As DevExpress.Spreadsheet.Shape = worksheet.Shapes.AddShape(DevExpress.Spreadsheet.ShapeGeometryPreset.RegularPentagon, 450, 0, 300, 300)
Dim shape3 As DevExpress.Spreadsheet.Shape = worksheet.Shapes.AddTextBox(300, 500, 200, 200, "Shape Text")

'将这些形状组合成一个分组. 
Dim shapeGroup As DevExpress.Spreadsheet.Shape = worksheet.Shapes.GroupShapes(New Shape() { shape1, shape2, shape3 })

C#
// 创建一些形状.
DevExpress.Spreadsheet.Worksheet worksheet = workbook.Worksheets[0];
DevExpress.Spreadsheet.Shape shape1 = worksheet.Shapes.AddShape(DevExpress.Spreadsheet.ShapeGeometryPreset.RectangularCallout, 100, 100, 300, 300);
DevExpress.Spreadsheet.Shape shape2 = worksheet.Shapes.AddShape(DevExpress.Spreadsheet.ShapeGeometryPreset.RegularPentagon, 450, 0, 300, 300);
DevExpress.Spreadsheet.Shape shape3 = worksheet.Shapes.AddTextBox(300, 500, 200, 200, "Shape Text");

// 将这些形状组合成一个分组.
DevExpress.Spreadsheet.Shape shapeGroup = worksheet.Shapes.GroupShapes(new Shape[] { shape1, shape2, shape3 });

提示

调用ShapeCollection.UngroupShapes方法将形状组划分为单个形状。