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