GroupDocsGists
10/19/2017 - 10:59 AM

RemoveHyperlinksVisio.vb

' For complete examples and data files, please go to https://github.com/groupdocs-watermark/GroupDocs.Watermark-for-.NET
Using doc As DiagramDocument = Document.Load(Of DiagramDocument)(Utilities.MapSourceFilePath(FilePath))
    Dim shape As DiagramShape = doc.Pages(0).Shapes(0)
    For i As Integer = shape.Hyperlinks.Count - 1 To 0 Step -1
        If shape.Hyperlinks(i).Address.Contains("http://someurl.com") Then
            shape.Hyperlinks.RemoveAt(i)
        End If
    Next

    doc.Save()