''
'' 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 HyperlinkAction
    Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()

        Dim run = doc.Body.AddParagraph().AddRun()
        Dim shape = run.GetRange().Shapes.Add(200, 200, GeometryType.Pentagon)
        shape.Fill.Type = FillType.Solid
        shape.Fill.SolidFill.RGB = Color.Coral
        shape.Line.Width = 3
        shape.Line.Fill.SolidFill.RGB = Color.CadetBlue
        shape.AddTextFrame("This shape has HyperlinkOnClick and HyperlinkOnHover properties specified.")
        shape.Size.EffectExtent.AllEdges = 8

        shape.HyperlinkOnClick.Address = New Uri("https://www.google.com/maps", UriKind.RelativeOrAbsolute)
        shape.HyperlinkOnClick.ScreenTip = "Go to Google Maps"
        shape.HyperlinkOnClick.HighlightClick = True

        shape.HyperlinkOnHover.Address = New Uri("https://www.google.com", UriKind.RelativeOrAbsolute)
        shape.HyperlinkOnHover.ScreenTip = "Just Google"
        shape.HyperlinkOnHover.HighlightClick = True

        Return doc
    End Function
End Class