Insert image as inline object

The following example shows you how to insert an image. The image is in line with the text. See screenshot.

C# example

using System;
using Independentsoft.Office;
using Independentsoft.Office.Drawing;
using Independentsoft.Office.Word;
using Independentsoft.Office.Word.Drawing;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            WordDocument doc = new WordDocument();

            Picture picture = new Picture("c:\\image.gif");
            Unit pictureWidth = new Unit(640, UnitType.Pixel);
            Unit pictureHeight = new Unit(480, UnitType.Pixel);

            Offset offset = new Offset(0, 0);
            Extents extents = new Extents(pictureWidth, pictureHeight);

            picture.ShapeProperties.PresetGeometry = new PresetGeometry(ShapeType.Rectangle);
            picture.ShapeProperties.Transform2D = new Transform2D(offset, extents);
            picture.ID = "1";
            picture.Name = "image.gif";

            Inline inline = new Inline(picture);
            inline.Size = new DrawingObjectSize(pictureWidth, pictureHeight);
            inline.ID = "1";
            inline.Name = "Picture 1";
            inline.Description = "image.gif";

            DrawingObject drawingObject = new DrawingObject(inline);
            
            Run run1 = new Run();
            run1.AddText("Below is an image:");

            Run run2 = new Run();
            run2.Add(drawingObject);

            Paragraph paragraph1 = new Paragraph();
            paragraph1.Add(run1);
            paragraph1.Add(run2);

            doc.Body.Add(paragraph1);

            doc.Save("c:\\test.docx");
        }
    }
}

VB example

Imports System
Imports Independentsoft.Office
Imports Independentsoft.Office.Drawing
Imports Independentsoft.Office.Word
Imports Independentsoft.Office.Word.Drawing

Module Module1
    Sub Main(ByVal args() As String)

        Dim doc As WordDocument = New WordDocument()

        Dim picture As Picture = New Picture("c:\image.gif")
        Dim pictureWidth As Unit = New Unit(640, UnitType.Pixel)
        Dim pictureHeight As Unit = New Unit(480, UnitType.Pixel)

        Dim offset As Offset = New Offset(0, 0)
        Dim extents As Extents = New Extents(pictureWidth, pictureHeight)

        picture.ShapeProperties.PresetGeometry = New PresetGeometry(ShapeType.Rectangle)
        picture.ShapeProperties.Transform2D = New Transform2D(offset, extents)
        picture.ID = "1"
        picture.Name = "image.gif"

        Dim inline As Inline = New Inline(picture)
        inline.Size = New DrawingObjectSize(pictureWidth, pictureHeight)
        inline.ID = "1"
        inline.Name = "Picture 1"
        inline.Description = "image.gif"

        Dim drawingObject As DrawingObject = New DrawingObject(inline)

        Dim run1 As Run = New Run
        run1.AddText("Below is an image:")

        Dim run2 As Run = New Run
        run2.Add(drawingObject)

        Dim paragraph1 As Paragraph = New Paragraph
        paragraph1.Add(run1)
        paragraph1.Add(run2)

        doc.Body.Add(paragraph1)

        doc.Save("c:\test.docx")

    End Sub
End Module