''
'' 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