GroupDocsGists
10/19/2017 - 11:01 AM

GetShapesInformationVisio.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 Each shape As DiagramShape In page.Shapes
            If shape.Image IsNot Nothing Then
                Console.WriteLine(shape.Image.Width)
                Console.WriteLine(shape.Image.Height)
                Console.WriteLine(shape.Image.GetBytes().Length)
            End If
            Console.WriteLine(shape.Name)
            Console.WriteLine(shape.X)
            Console.WriteLine(shape.Y)
            Console.WriteLine(shape.Width)
            Console.WriteLine(shape.Height)
            Console.WriteLine(shape.RotateAngle)
            Console.WriteLine(shape.Text)
            Console.WriteLine(shape.Id)
        Next
    Next
End Using