'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports GrapeCity.Documents.Word
Public Class PicEffChangeColor    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)        Dim colorChange = picture.ImageData.Effects.AddColorChange(New UserColor(Color.Black), New UserColor(Color.CadetBlue))        doc.Body.AddParagraph($"Color changed from {colorChange.ColorFrom.RGB} to {colorChange.ColorTo.RGB}", captionStyle)        Return doc    End FunctionEnd Class