'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports SystemImports System.IOImports 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 FunctionEnd Class