PictureAdd.vb
''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System
Imports System.IO
Imports System.Drawing
Imports GrapeCity.Documents.Word
Imports GrapeCity.Documents.Imaging

'' This sample demonstrates how to add a JPEG image to a document.
Public Class PictureAdd
    Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()

        '' Load picture data
        Dim picBytes = File.ReadAllBytes(Path.Combine("Resources", "Images", "road.jpg"))
        '' Create a GcBitmap so that we can find out the native picture size
        Dim image = New GcBitmap(picBytes)
        Dim width = doc.Body.Sections.Last.PageSetup.ClientWidth
        Dim height = image.Height * (width / image.Width)

        '' Add an inline picture that fills the page width
        Dim pars = doc.Body.Sections.First.GetRange().Paragraphs
        Dim par = pars.Add("Picture sized to fill the page:")
        Dim Run = par.GetRange().Runs.Last
        Run.GetRange().Texts.AddBreak()
        '' Add picture, specifying its mime type
        Dim pic = Run.GetRange().Pictures.Add(picBytes, "image/jpeg")
        '' Scale picture size to fill the width of the page
        pic.Size.Width.Value = width
        pic.Size.Height.Value = height

        pars.Add("The End.")

        '' Done
        Return doc
    End Function
End Class