GroupDocsGists
10/19/2017 - 10:59 AM

RemoveTextShapesWithParticularTextFormattingVisio.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))
    For Each page As DiagramPage In doc.Pages
        For i As Object = page.Shapes.Count - 1 To 0 Step -1
            For Each fragment As Object In page.Shapes(i).FormattedTextFragments
                If fragment.ForegroundColor = Color.Red AndAlso fragment.Font.FamilyName = "Arial" Then
                    page.Shapes.RemoveAt(i)
                    Exit For
                End If
            Next
        Next
    Next
    doc.Save()