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

女爷i 2022-06-12 13:53 294阅读 0赞

MS Word允许用户从形状菜单中选择一个形状，并将其拖放到页面上任何所需的位置。 从[Spire.Doc 6.0][]或更高版本，我们添加了一个新功能，使用代码来处理形状。 以下部分将介绍如何使用[Spire.Doc][Spire.Doc 6.0]在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属性来格式化形状。

**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);

**结果：**

![图片1][1]

**完整代码：**

\[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.Red
    shape1.StrokeColor = Color.Red
    shape1.HorizontalPosition = 200
    shape1.VerticalPosition = 100
    Dim shape2 As ShapeObject = 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
    Dim 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)

[慧都控件网][Link 1]

[Spire.Doc 6.0]: https://www.evget.com/product/3368
[1]: /images/20220612/d3f408e958b546fa83695e5e6a089639.png
[Link 1]: https://www.evget.com/article/2017/7/24/26625.html