Spire.Doc 教程：如何在C＃，VB.NET中为Word文档插入形状和形状组

MS Word允许用户从形状菜单中选择一个形状，并将其拖放到页面上任何所需的位置。 从Spire.Doc 6.0或更高版本，我们添加了一个新功能，使用代码来处理形状。 以下部分将介绍如何使用Spire.Doc在Word文档指定的位置插入形状和形状组。

代码段：

Step 1:初始化一个新的Document类实例。

Document doc = new Document();

Step 2:向Word文档添加一个新的部分，并在该部分添加一个段落。

Section sec = doc.AddSection();Paragraph para1 =sec.AddParagraph();

Step 3:通过调用AppendShape（）方法向段落添加形状。为了找到放置形状的位置，需设置ShapeObject类的HorizontalPosition和VerticalPosition属性，我们还可以通过设置FillColor，StrokeColor和LineStyle属性来格式化形状。

ShapeObject shape1 = para1.AppendShape(50, 50, ShapeType.Heart);shape1.FillColor = Color.Red;shape1.StrokeColor = Color.Red;shape1.HorizontalPosition = 200;shape1.VerticalPosition = 100;ShapeObject shape2 = para1.AppendShape(100, 100, ShapeType.Arrow);shape2.FillColor = Color.Purple;shape2.StrokeColor = Color.Black;shape2.LineStyle = ShapeLineStyle.Double;shape2.StrokeWeight = 3;shape2.HorizontalPosition = 200;shape2.VerticalPosition = 200;

Step 4:添加一个新段落，并通过调用AppendShapeGroup（）方法向段落插入一个形状组。

ShapeObject shape1 = para1.AppendShape(50, 50, ShapeType.Heart);shape1.FillColor = Color.Red;shape1.StrokeColor = Color.Red;shape1.HorizontalPosition = 200;shape1.VerticalPosition = 100;ShapeObject shape2 = para1.AppendShape(100, 100, ShapeType.Arrow);shape2.FillColor = Color.Purple;shape2.StrokeColor = Color.Black;shape2.LineStyle = ShapeLineStyle.Double;shape2.StrokeWeight = 3;shape2.HorizontalPosition = 200;shape2.VerticalPosition = 200;/////Paragraph para2 = sec.AddParagraph();ShapeGroup shapegr = para2.AppendShapeGroup(200, 400);shapegr.ChildObjects.Add(new ShapeObject(doc, ShapeType.Rectangle){    Width = 500,    Height = 300,    LineStyle = ShapeLineStyle.ThickThin,    StrokeColor = System.Drawing.Color.Blue,    StrokeWeight = 1.5,});shapegr.ChildObjects.Add(new ShapeObject(doc, ShapeType.RightTriangle){    Width = 500,    Height = 300,    VerticalPosition = 301,    LineStyle = ShapeLineStyle.ThickThin,    StrokeColor = System.Drawing.Color.Green,    StrokeWeight = 1.5,});shapegr.ChildObjects.Add(new ShapeObject(doc, ShapeType.QuadArrow){    Width = 500,    Height = 300,    VerticalPosition = 601,    LineStyle = ShapeLineStyle.ThickThin,    StrokeColor = System.Drawing.Color.Blue,    StrokeWeight = 1.5,});

Step 5:将文档保存到文件。

doc.SaveToFile("InsertShapes.docx", FileFormat.Docx2010);

结果：

完整代码：

[C#]

Document doc = new Document();Section sec = doc.AddSection();Paragraph para1 =sec.AddParagraph();ShapeObject shape1 = para1.AppendShape(50, 50, ShapeType.Heart);shape1.FillColor = Color.Red;shape1.StrokeColor = Color.Red;shape1.HorizontalPosition = 200;shape1.VerticalPosition = 100;ShapeObject shape2 = para1.AppendShape(100, 100, ShapeType.Arrow);shape2.FillColor = Color.Purple;shape2.StrokeColor = Color.Black;shape2.LineStyle = ShapeLineStyle.Double;shape2.StrokeWeight = 3;shape2.HorizontalPosition = 200;shape2.VerticalPosition = 200;Paragraph para2 = sec.AddParagraph();ShapeGroup shapegr = para2.AppendShapeGroup(200, 400);shapegr.ChildObjects.Add(new ShapeObject(doc, ShapeType.Rectangle){    Width = 500,    Height = 300,    LineStyle = ShapeLineStyle.ThickThin,    StrokeColor = System.Drawing.Color.Blue,    StrokeWeight = 1.5,});shapegr.ChildObjects.Add(new ShapeObject(doc, ShapeType.RightTriangle){    Width = 500,    Height = 300,    VerticalPosition = 301,    LineStyle = ShapeLineStyle.ThickThin,    StrokeColor = System.Drawing.Color.Green,    StrokeWeight = 1.5,});shapegr.ChildObjects.Add(new ShapeObject(doc, ShapeType.QuadArrow){    Width = 500,    Height = 300,    VerticalPosition = 601,    LineStyle = ShapeLineStyle.ThickThin,    StrokeColor = System.Drawing.Color.Blue,    StrokeWeight = 1.5,});doc.SaveToFile("InsertShapes.docx", FileFormat.Docx2010);

[VB.NET]

Dim doc As New Document()Dim sec As Section = doc.AddSection()Dim para1 As Paragraph = sec.AddParagraph()Dim shape1 As ShapeObject = para1.AppendShape(50, 50, ShapeType.Heart)shape1.FillColor = Color.Redshape1.StrokeColor = Color.Redshape1.HorizontalPosition = 200shape1.VerticalPosition = 100Dim shape2 As ShapeObject = para1.AppendShape(100, 100, ShapeType.Arrow)shape2.FillColor = Color.Purpleshape2.StrokeColor = Color.Blackshape2.LineStyle = ShapeLineStyle.[Double]shape2.StrokeWeight = 3shape2.HorizontalPosition = 200shape2.VerticalPosition = 200Dim para2 As Paragraph = sec.AddParagraph()Dim shapegr As ShapeGroup = para2.AppendShapeGroup(200, 400)shapegr.ChildObjects.Add(New ShapeObject(doc, ShapeType.Rectangle) With { _    Key .Width = 500, _    Key .Height = 300, _    Key .LineStyle = ShapeLineStyle.ThickThin, _    Key .StrokeColor = System.Drawing.Color.Blue, _    Key .StrokeWeight = 1.5 _})shapegr.ChildObjects.Add(New ShapeObject(doc, ShapeType.RightTriangle) With { _    Key .Width = 500, _    Key .Height = 300, _    Key .VerticalPosition = 301, _    Key .LineStyle = ShapeLineStyle.ThickThin, _    Key .StrokeColor = System.Drawing.Color.Green, _    Key .StrokeWeight = 1.5 _})shapegr.ChildObjects.Add(New ShapeObject(doc, ShapeType.QuadArrow) With { _    Key .Width = 500, _    Key .Height = 300, _    Key .VerticalPosition = 601, _    Key .LineStyle = ShapeLineStyle.ThickThin, _    Key .StrokeColor = System.Drawing.Color.Blue, _    Key .StrokeWeight = 1.5 _})doc.SaveToFile("InsertShapes.docx", FileFormat.Docx2010)

慧都控件网