'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports GrapeCity.Documents.Word
'' This demo shows how to add a link to a YouTube video that plays in the DOCX.Public Class AddVideoLink    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        doc.Body.AddParagraph("The picture below includes a link to a YouTube video which plays inside the document if clicked.")        '' Add picture with a thumbnail and a video link inside:        Dim vStyle = doc.Styles.Add("vlink_style", doc.Styles(BuiltInStyleId.BlockText))        vStyle.ParagraphFormat.Indentation.LeftIndent = 0        Dim par = doc.Body.AddParagraph()        par.Style = vStyle        Dim pic = par.AddRun().AddPicture()        Dim picBytes = File.ReadAllBytes(Path.Combine("Resources", "ImagesBis", "mescius-video-thumbnail.jpg"))        pic.ImageData.SetImage(picBytes, "image/jpeg")        pic.ImageData.WebVideoProperties.SetUrl("https://www.youtube.com/watch?v=RRTCt2TTOyU", "How to Build a Simple Balance Sheet using C# .NET Excel APIs", 400, 400)        pic.Size.Width.Value = 400        pic.Size.Height.Value = 400        ''        doc.Body.AddParagraph("The End.")        '' Done:        Return doc    End FunctionEnd Class