''
'' 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
 
'' This sample loads an existing document, And replaces
'' the (only) image in it with a different one.
Public Class ReplaceImage
    Public Function CreateDocx() As GcWordDocument
        '' The New image data
        Dim picBytes = File.ReadAllBytes(Path.Combine("Resources", "ImagesBis", "DianeForsyth.jpg"))
 
        '' Load the document
        Dim doc = New GcWordDocument()
        doc.Load(Path.Combine("Resources", "WordDocs", "ProcurementLetter.docx"))
 
        '' Access the image to replace
        Dim pic = doc.Body.Sections.First.GetRange().Pictures.First
        '' Replace the image data in place:
        pic.ImageData.SetImage(picBytes, "image/jpeg")
 
        '' Done
        Return doc
    End Function
End Class