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