Hi Imran
I’ve listed the source code below (I’m using a WinForm application created using VS2015) and have attached the Visio file. Please let me know if you need any more information.
Thanks,
Andrew
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnExport.Click
Dim license As New Aspose.Diagram.License
license.SetLicense(“C:\temp\Aspose Diagram Test\Aspose.Diagram.lic”)
Dim map As New Aspose.Diagram.Diagram(txtVisioFile.Text)
AddHyperlink(map)
map.Save(txtVisioFile.Text, Aspose.Diagram.SaveFileFormat.VSDM)
End Sub
Private Sub AddHyperlink(ByRef map As Aspose.Diagram.Diagram)
Dim page As Aspose.Diagram.Page = map.Pages.GetPage(“Map Page-1”)
Dim deliverable As Aspose.Diagram.Shape = page.Shapes.GetShape(127)
Dim hyperlink As New Aspose.Diagram.Hyperlink
hyperlink.SubAddress.Value = “andrew test sub”
hyperlink.Description.Value = “andrew test desc”
hyperlink.Name = “Andrew Hyperlink 2”
deliverable.Hyperlinks.Add(hyperlink)
End Sub