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