Dim book As Workbook = Workbook.Load("..\..\test.xlsx")
For Each sheet As Worksheet In book.Worksheets
    For Each shape As WorksheetShape In sheet.Shapes
    Dim bounds As Rect = shape.GetBoundsInTwips()
        Console.WriteLine(
            [String].Format("ClassName:{0} – Bounds:{1},{2},{3},{4}",
                shape.[GetType](),
                bounds.X,
                bounds.Y,
                bounds.Width,
                bounds.Height))
    Next
Next