'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports GrapeCity.Documents.Word
Public Class PicEffRecolor    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        Util.SetNarrowMargins(doc)        Dim captionStyle = doc.Styles.Add("CaptionStyle", doc.Styles(BuiltInStyleId.BodyTextFirstIndent2))
        Dim bytes = File.ReadAllBytes(Path.Combine("Resources", "Images", "wargravepink.jpg"))        doc.Body.AddParagraph().AddRun().AddPicture(bytes, "image/jpeg", 450, 300)        doc.Body.AddParagraph("Original picture", captionStyle)        Dim picture = doc.Body.AddParagraph().AddRun().AddPicture(bytes, "image/jpeg", 450, 300)        picture.ImageData.Recolor(RecolorType.Sepia)        doc.Body.AddParagraph($"Recolor effect ({RecolorType.Sepia})", captionStyle)        Return doc    End FunctionEnd Class